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Preface 



Information in this book is presented in sequential 
order. The basic concepts presented in Chapter One are 
used as the foundation for the more concise information 
found in the later sections. You should become comfortable 
with the introductory chapter before moving to the other 
specific discussions of I/O. After Chapter One, the other 
sections may be perused in any order, but each individual 
chapter should be read completely. Do not skip directly to 
the interfacing examples at the end of the chapter. 

An alphabetical index is not supplied with this 
volume. As was done with Volume I, the detailed Table of 
Contents should be used to locate quickly items of 
interest. 

This book was written using the Scripsit word pro- 
cessing package from Radio Shack (Catalog 26-1563) with the 
Superscript modification from Acorn Software Products; 
634 North Carolina Avenue, SE; Washington, DC 20003. As- 
sembled programs found in the appendices were written under 
the disk-based editor/assembler LDAS 3.4 from MISOSYS; 
5904 Edgehill Drive; Alexandria, VA 22303. The text was 
printed using an NEC Spinwriter Model 553 0. 
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Introduction 



Ah, the well laid plans of mice and men... that's what comes to mind when 
we think of this volume. It was supposed to appear in September 1980, then 
October, November, and December. Finally, in the first days of January 1981, 
all the technical difficulties have been solved, and we have Volume II of 
The B00K: Accessing The TRS-80 ROM. To those of you that have patiently 
awaited this volume, thank you. We think you will be pleased with the results. 

Several books have appeared on the market which cover "completely" the 
workings of the TRS-80 ROM. It seems strange that anyone could completely 
cover a 12K program in less than 200 pages. When interfacing to ROM routines, 
one has to know the full story, not simply a brief explanation. We have tried 
to take the guesswork out of interfacing. For this reason, we have devoted an 
entire volume to the math routines and an entire volume to input/output. 

Provided in this volume is a complete interfacing guide for each of the 
Level II I/O units. You will note that we have spent a great deal of space in 
each chapter explaining the HOW's and WHY's of each device. It is easy to use 
just the ROM routines, but as you write more sophisticated software, you will 
probably have to control the devices directly. The technical information given 
in each chapter is vital when writing customized drivers. 

And, of course, we all can learn from analyzing another person's code. If 

you have a TRS-80 or are writing programs for one in assembly language, you 
have probably disassembled the ROM; that's where it starts. Unfortunately, the 
process of commenting bare, disassembled code takes many painstaking hours. 
Take a look in chapter 6; in it you will find the comments for the I/O rou- 
tines — all you need are the operands (space is provided for you to enter them). 

In the appendices, you will find useful lists, tables, and assembly lan- 
guage routines, including an alphabetized list of the labels found in 
Appendix A of Volume I, a Lowercase driver, a table of graphics characters, a 
SET/RESET/POINT routine, and an ASCII table. 

Completeness and accuracy have been the major goals in this series. We 
welcome any constructive comments, additions, or suggestions. Please feel free 

to write us. 



Thank you and happy computing, 



Insiders Software Consultants, Inc. 
P0 Box 2441 

Springfield, VA 22152 
U.S.A. 



0000 1101 



Introduction to Input/Output on the TRS-30 



This volume is dedicated to two very important aspects 
of every computer — the input and output (I/O) of data and 
information in a form that can be easily understood and 
manipulated by both the computer and you, the owner, 
operator, and user of the TRS-80. Throughout this volume, 
the term "TRS-80" only refers to the TRS-80 Model I 
microcomputer sold by Radio Shack, a division of Tandy 
Corporation. As mentioned in the Introduction, 
descriptions and discussions will be kept as simple as 
possible. However, some knowledge of Z-80 assembly 
language is helpful. 

There are two major methods used to input information 
into the TRS-80; the primary source is the keyboard. A 
full discussion of the keyboard and the Read Only Memory 
(ROM) routines used in conjuction with this device are 
provided in chapter 2. The second device used for input is 
the cassette tape unit, discussed in chapter 5. 

Although there are other means that may be used to 
input data into the computer, these are the only two that 
are supported by the Level II ROM. One must remember that 
the information provided applies ONLY to Level II. When 
programming under a Disk Operating System (DOS) , it may be 
necessary to add certain precautionary steps to any 
assembly language programs which use ROM routines for I/O. 
Whenever possible, problem areas are noted, but the 
ultimate responsibility lies with the programmer. 

There are three devices which are used for output. 
They are the video display or Cathode Ray Tube (CRT) , the 
hardcopy device or PRINTER, and the cassette TAPE. Of 
these units, the video display is used most often. It is 
discussed in chapter 3. A printer may be attached to the 
TRS-80 Level II system to produce hardcopy, although a 
special cable is necessary. Information on the printer 
routines is provided in chapter 4. The use of the cassette 
tape as an output device is included in. chapter 5. 
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The Level II ROM uses a well defined procedure to 
access, or drive, most of the devices. The procedure 
consists of six steps. The first step is the definition of 
the data flow [either user- to- computer (input) or 
computer-to-user (output)]. The second step is the 
selection of a Device Control Block (DCB) by identifying 
its address in RAM memory. The third step consists of 
saving most of the CPU registers in order to preserve their 
contents during the I/O driver execution. Then, the driver 
routine is executed. The step after execution is the 
restoration of the registers. Finally, control returns to 
the calling procedure, with the registers in various states 
depending on the I/O request. 

Each of the above steps will be discussed at length in 
the following sections. It is recommended that you become 
comfortable with each section before continuing. A 
complete understanding of these points is assumed in later 
chapters. 

For clarity, only the keyboard, video, and printer 
devices will be used as examples. The tape unit does not 

conform to the above procedure; consequently, it is left 
out of this introductory discussion to avoid confusion. 
The method of utilizing the tape unit, as noted previously, 
is fully discussed in chapter 5. 



DATA FLOff 

Depending on the device, data may flow TO the device, 
FROM the device, or TO and FROM the device. The ROM I/O 
routines provide a method of avoiding possible conflicts in 
I/O requests by passing a flag byte from the calling 
procedure to the I/O routine. This byte is compared to the 
FLAG byte stored in the DCB. If a VALID request is made, 

execution continues. However, if an INVALID request is 
made, such as output to the keyboard, a routine which 
handles invalid requests is executed. 

The determination of the validity of the request is 
performed by the I/O master driver found in ROM at location 
03C2H, hereafter referred to as DRIVER. The DRIVER routine 
is usually accessed by a CALL to either the INBYT routine 
located at 0013H or the ODTBYT routine at location 001BH. 
Before the call, the DE register pair (referred to as 
• DE'), is loaded with the address of the DCB. 
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These two routines (INBYT and OUTBYT) simply define 
the data flow direction. INBYT, which loads the flag byte 
in register B CB') with 01H, informs DRIVER that the flow 
will be to the calling routine from the device. OUTBYT 
loads 'B* with 02H which denotes an output operation; data 
flow is from the calling routine to. the device. 

Another routine is present in the ROM for sending a 
control byte to a device. This CALL (to location 0023H) is 
not used by the ROM, but is present for other user-defined 
drivers. CTLBYT loads f B' with 04H and then passes control 
to DRIVER for processing of the request. 

As the reader may have noticed, the flag bytes placed 
in the ! B' register only have one bit set. The flags are 
used as follows: 



Bit 
Bit 1 
Bit 2 



0000 0001 = 01H ; INPUT flag 
0000 0010 s 02H ;OUTPUT flag 
0000 0100 = 04H ;CONTROL flag 



4015; 


KBTYP 


DEFB 


01H 


401D: 


CRTTYP 


DEFB 


07H 


4025: 


LPTTYP 


DEFB 


06H 



Now, let us look at the DCB's for the different 
devices. As previously mentioned, the DRIVER checks the 
DCB for the flag byte. This flag byte is stored in the 
first byte of the DCB. The initial values are as follows: 

? KEYBOARD: Input only 

; CRT: In/Out/Control 

; PRINTER: Out/Control 

Careful examination of these values shows that a given 
device may be able to handle one, two, or all three types 
of requests. A set bit (Bit is high, or 1) denotes that 
the device addressed by this DCB is capable of the 
corresponding request. For example, if the request is for 
input, one can see that both the keyboard and video are 
capable of input, but the printer is not. A quick note: 
the use of the video display for input is not user input 
but input from the screen memory. This may not make sense 
here, but it will become more clear after the discussion of 
the video in chapter 3. For now, just remember that it is 
capable of input. 
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DCB DEFINITION 



The Device Control Block contains information which is 
dependent on the type of device it describes. However, for 
Level II devices, the first three bytes are always used for 
the same purpose. The first byte was just discussed and is 
the I/O request flag used in data flow. The next two bytes 
contain the address of the device driver, which contains 
the I/O unit dependent code. In other words, a keyboard 
and a video display require different "programs" to make 
them work in an acceptable manner. Therefore, after a 
certain amount of validity checking, the master driver must 
pass control to a routine which handles the I/O device. 

As is the case with most addresses stored in memory, 
the location of the driver is stored with the 
Least Significant Byte (LSB) first, followed by the 
Most Significant Byte (MSB). When DRIVER gets control, the 
address of the DCB is (or atleast should be) in 'DE*. 
DRIVER then loads this into 'IX' and uses this index 
register to pick out the device driver address and load it 
into 'HL 1 . Here is an example of a user-defined DCB located 
at 7000H which is used to define an input device driver at 
address 735AH: 



7000 
7001 
7002 
7003 



01H (IX + 00H) ?Type flag = INPUT 

5AH (IX + 01H) ;LSB Driver address 

73 H (IX + 02H) ;MSB Driver address 

(IX + 03H) ;Misc status bytes 



7007: . (IX + 07H) 



DRIVER takes this DCB and loads the LSB into ' L 1 using 
the instruction "LD L, (IX+01H) " and then loads the MSB into 
' H f using "LD H, (IX+Q2H) . " Transfer is then passed to the 
I/O handler for the device using a "JP (HL) " instruction. 
The return address to DRIVER, DRVRET, has been placed on 
the top of the stack by a "PUSH HL" at 03CCH. Therefore, a 
RET instruction in the handler will return to DRIVER at the 
point in which it restores the registers. Control then 
passes to the CALLing routine by RETurning to the address 
at the top of the stack. 
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REGISTER OSAGE 



Obviously, during the execution of the I/O process 
some registers are going to be used. DRIVER saves almost 
all registers. Here are some important points to remember: 

1) Level II does not use the alternate register set; 
therefore, DRIVER does not save these registers. 
If a user defined driver utilizes these registers, 
be certain that it does not destroy their values. 



2) All current-set registers except 'DE* & 



AF ; 



are 



stacked before execution of the I/O process. The 
stack during the I/O handler execution is as 
follows: 



TOP OF STACK: DRVRET 



'DE' 

'IX* 
'HL' 
'BC 



RETADR 



Return Address to 
DRIVER to restore 
registers that 
follow. 

DCB address 

IX before I/O Req. 

HL before I/O Req. 

BC before I/O Req. 
BC is PUSHED by 
INBYT/OUTBYT/CTLBYT 

Return address to 
CALLing routine. 



3) The ' IY* register is not used at all by 
Level II. If it is not used in the driver, there 
is no need to save it. This fact contradicts 
the xvadio Shack assembler manual. 

4) DRIVER sets up the registers and flags as follows 
before transfering control to the device driver: 

a) Stack as shown above 

b) 'C contains the old contents of 'A* 

c) 'HL' contains address of driver 

d) 'IX» contains address of DCB 

e) The Carry flag is set if Input request 

f) The Zero flag is set if Output request 

g) Test for No Carry for Control-byte request 
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Careful consideration of the above points is necessary 
for proper utilization of the ROM routines. You must be 
certain that the environment and stack are preserved at all 
times. Failure to do so may cause unpredictable results or 
the crashing of the computer (in other words, the program 
may wind up in OZ when it was looking for Kansas). The 
structure of the DCB allows for a great deal of 
flexibility; yet, much caution must be taken when 
manipulating these areas to avoid system errors. 



DRIVER ROUTINES 

The driver routines are as varied as the devices they 
control. The video routine must perform the scrolling, 
cursor positioning, manipulation of the screen depending on 
the control character sent, and many other sophisticated 
functions. The keyboard routine must "scan" the keyboard 
memory (a concept that will be discussed later) to 
determine if a new character has been pressed and then 
decode the scan into the appropriate character. Other 
drivers may be equally as complicated. 

At some time in the future, you may wish to replace a 
ROM driver with another, more customized driver. Of 
course, some compatibility must remain in order for the 
machine to function properly. It is recommended that the 
programmer of such a driver analyze the ROM drivers first, 
paying close attention to the one that is to be replaced. 
After careful study, design the driver to suit the 
requirements of the situation, but be very cautious. The 
programmer must take into consideration many different, 
varying environments. The ROM is a complicated world. 

At this stage, an example may be necessary to prove 
the point. Let's take the video driver. The video driver 
does a lot of workl It tracks cursor position on the 
screen, position in the line, whether the cursor is on or 
not, whether the cursor is hiding a character, and whether 
the screen is in 32-character mode, which changes just 
about everything. Once again, be very thorough; it pays 
off in the end. 
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Each of the drivers is discussed in their respective 
chapters, so very little needs to be added at this point. 
The complexity of a replacement driver is only limited by 
creativity. For instance , one could develop a 
sophisticated video driver with blinking cursor, direct 
cursor addressing, multiple pages, right-to-left and 
left-to-right scrolling, variable tab stops, upper and 
lowercase, etc. True, programming these features may be 
beyond one's patience or capability. Nevertheless, they 
are possible. 

When you load a new driver into RAM, the items that 
you need to change are the address of the driver in the DCB 
and the flag byte. Also, other storage areas in the DCB 
must be changed to suit the new driver. Be sure that the 
driver is fully operational before modifying the DCB to 
avoid crashing the device and possibly the system. 



REGISTER RESTORATION AND I/O COMPLETION 

After the device driver is finished, control is passed 
to DRIVER, which restores the registers (except ' DE' and 
* AF 1 ) and control is returned to the calling routine. If 
•DE* is to be restored to its original state, it must have 
been saved by the caller before the request. 

All flags and values from the ROM drivers are passed 
in 'AF'. After testing the flags or storing the returned 
data (if any is returned), 'AF* can be restored IF it was 
saved earlier along with 'DE'. 

This completes the I/O driver procedure. Some of the 
points made will be clarified and expanded in the 
individual chapters pertaining to the devices. At this 
point, if the reader is unsure about the procedure, the 
above sections should be re-read. 
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INVALID REQUESTS 



A special note to programmers: 

When an invalid request is made (such as input from 
the printer) , the ROM passes control to 4033H. This is the 
first address of a three-byte area used to store a JP to a 
handling routine. However, under normal Level II, these 
addresses contain: 

4033: LD A,0 ;Clear Accumulator 

4035: RET ,*Back to DRIVER 

; Restore registers 

This short routine simply clears 'A 1 and returns to DRVRET 
to restore the registers and return to the caller without 
executing a device handler. 

It should be noted that almost ALL disk operating 
systems place a vector at these locations v/hich causes 
execution of a disk I/O driver if an invalid request is 
made; results are unpredictable and could be fatal. 
Consequently, if one is going to experiment witn the DCB's, 
be sure to control these addresses. 
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The primary device used for input to the TRS-80 is the 
keyboard; it is also perhaps the hardest device to 
understand. Many users think that when one presses the "A" 
key that the keyboard sends the character "A" to the 
computer. This is not the case as we shall soon see. 

The TRS-80 keyboard consists of 53 single-pole, 
single-throw, normally open keys (65 with the numeric 
keypad). Each of the keys is assigned a location in a 
keyboard matrix. When a switch is closed (key pressed), it 
will, short out a horizontal line to a vertical line, 
causing the appropriate element in the array to be 
"activated," In other words, when a key is pressed the 
contact causes an electrical "short." [This does not mean 
that your keyboard will burst into flames if you type too 
quickly. In this case, electical short simply means an 
electrical "connection".] This short is translated into a 
"1" bit in the assigned location in the matrix. This bit 
will stay on until the key is released. 

What does this all mean? Well, it means that the task 
of figuring out the ASCII value of the key pressed on the 
board is not as easy as one might hope. First of all, the 
only thing we have to work with is a matrix of signals. In 
addition, more than one signal may be on at a time. Also, 
a signal stays on as long as the key is pressed. 
Therefore, there must be a method of decoding and then a 
method of determining whether the key was pressed during 
the last scan in order to make sense out of the matrix. 
Before we can intelligently discuss the matrix and 
decoding, we must define the concept of memory mapping. 
After the introductory sections, we will present the actual 
interfacing to the ROM routines. 
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MEMORY MAPPING 

There are two techniques used to access I/O devices in 
the TRS-80. One method uses the Z80 I/O ports. The 
devices are accessed by performing IN's and OUT's to these 
ports; the tape unit uses this method. On the other hand, 
the method used by both the keyboard and the video is 
memory mapping. Each device is accessed by referring to 
its addresses in memory. Let's take an example. We'll use 
the printer since it is the easiest to understand. 

The printer uses the address 37E8H. Meaning, if you 
want to read the status of the printer, you would perform 
an LD A, (37E8H) . This instruction would retrieve the 
status of the printer into the accumulator. After testing 
the status to see whether the printer is ready, we could 
send an ASCII character stored in 'A' to the device by 
performing a LD (37E8H) ,A. 

This example shows that when you specify the address 
37E8H in an assembly language program on the TRS-80, you 
are not accessing a ROM or RAM address but a device. The 
specifics regarding the printer are discussed in a later 
chapter. What we are trying to stress here is that some 

devices on the TRS-80 are operated using instructions which 
normally refer only to memory. Therefore, if you store a 
byte in an address used by a device, and you read it back 
from the address later, it may not be the same. For this 
reason, you should not use the device addresses as storage 
areas. 

The keyboard and video are addressed similarly. All 
three devices use addresses between the end of the ROM at 
2FFFH and the beginning of RAM at 4000H. 

Memory mapping is used for the keyboard, video, and 
printer. When a device is said to be "addressed" at a 
certain hex location, it means that the I/O device is 
memory mapped to that location. Keep this fact in mind in 
the following sections. 
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DECODING AND THE MATRIX 

The keyboard matrix (KEYMEM) is addressed at 3800H and 
continues to 3BPFH. The matrix is actually made up of 
eight "rows" and eight "columns," where the addresses make 
up the rows and the values that are read from the addresses 
make up the columns. For the time being, we will ignore 
the MSB of the address and concentrate on the low order 
byte. 

When scanning the keyboard, the following addresses 

*n* ^«no 380 i£' 3 ? 02H ' 3804H ' 3808H ' 3810H, 3820H, 3840H, 



and 3880H. 


The 


— f -^ 

binary 


— » -» 

represen 


follows: 








Bit 


#: 


7 6 5 4 


3 2 10 


01H 


— 





1 


02H 


= 





ooio 


04H 


= 





10 


08H 


SS 





10 


10H 


— 


oooi 





20H 


= 


ooio 





40H 


= 


10 





80H 


S= 


10 






You should note that only one bit is set and that bit may 
be located in one of eight different locations. In this 
manner, the TRS-80 defines one of eight "rows." 

In each row, we can have up to eight values. Let's 
assign each of these values to an individual bit and look 

at the matrix. 
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Column bit: 



76543210 
80H 40H 20H 10H 08H 04H 02H 01H 



Row "bit: 


: 7 


[80HJ 




CTL 








SFT 




6 


E40H1 


SPA R.A 


. L.A D.A 


U.A 


BRK 


CLR 


ENT 




5 


[20H] 


/ 


"" r 


• 


: 


9 


8 






(w/SFT) 


? > 


< 


+ 


> 


) 


( 




4 


[10H3 


7 6 


5 4 


3 


2 


1 









(W/SFT) 


* & 


% $ 


# 


it 


i 






3 


[08H3 








Z 


Y 


X 




2 


[04H3 


W V 


U T 


S 


R 


Q 


P 




1 


E02H] 


N 


M L 


K 


J 


I 


H 







[01H3 


G F 


E D 


C 


B 


A 


@ 


ENT = 


Enter 


CLR = 


Clear 




BRK 


= Break 


U.A = 


Op arrow 


D.A = 


Down arrow 


R.A 


= Right arrow 


L.A = 


Left arrow 


SPA = 


Space 




SFT 


= Shift 






CTL - 


Electric 


: Pencil 


Control 







At this point, an example would help to pull together 
this matrix concept. Let's look at row 1. It is assigned 
to bit 1 in the address table. We note that the LSB for 
this row is 02H (bit 1 = 02H) ; therefore, we will peek at 
location 3802H to look at this row. 



LD 



A, (3802H) 



We find the value in "A* to be 04H. Looking at the above 
table, we see that this corresponds to the letter "J* which 
is at bit 2. In this manner, the TRS-80 locates the 
correct column by the value read from the row address. 



That is pretty straight forward, but what 
more than one key is pressed in the same 
example, what would be the value at 3802H 
letter 'J' and the letter ' M 1 were pressed, 
letter 'J' would cause bit 2 to be set, and the 
would cause bit 5 to be set. Then, adding (or 
langauge, ORing) the appropriate values for th 
get 04H + 20H = 24H, which is the value at 380 
and '14' are pressed. 



happens when 

"row?" For 

if both the 

Simply, the 

letter 'M' 

in assembly 

ese bits, we 

2H when 'J' 
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The keyboard is what may be called a "passive" device 
(it enjoys being stroked...). The mere pressing of a key 
causes no action in the TRS-80 CPU. The keyboard must be 
scanned. This scanning is not continuous and is performed 
only when requested by Level II or a user routine. 

The non-continuous scan causes a problem with keyboard 
decoding. The problem is this: the system notes that a key 
is pressed during a scan and returns the matrix value of 
the character to the caller. The keyboard is re-scanned 
while the key is still pressed. This scan will also note 
the depression and return the value of the character. There 
must be a method of decoding which can distiguish between 
the new keys pressed and the keys that have already been 
noted. The Level II ROM uses a table at 4036H-403CH 
(KBIMAG) to perform this differentiation. KB I MAG is used 
to store a mirror image of the eight row address values 
that were read during the last scan. 

Here is a possible scenario. The letter , J' is 
depressed. The keyboard scan picks up the depression in 
location 3802H and notes the value, 04H. It stores this 
value in the KBIMAG table at location 4037H. The rest of 
the table is set to zero since no other keys are depressed. 
The , M I key is then depressed while the ' J ! is still held 
down. The next scan sees at location 3802H a 24H. The 
scanner then looks at KBIMAG location 4037H and finds a 
04H, the value from the last scan. It notes that the 04H 
key (the 'J') had been depressed on the last pass, or scan. 
It eliminates this key. The value then becomes 20H. Aha! 
This is obviously an 'M. * This character is returned to 
the system as a newly depressed key. The value 24H is then 
stored into KBIMAG. 

The above is an example of how the system determines 
what key has been depressed on the keyboard. For the 
assembly code involved to calculate the ASCII value to 
return, refer to the disassembly [KEYIN at 03E3H] . 

Hark! I hear a small voice crying out, "What about 
debounce?" Well, first we must explain what "bounce" is. 
Bounce is that unfriendly phenomenon that occurs when one 
presses on a key once and gets two characters. Briefly, 
here is what happens. 



2-5 



The Keyboard 




2-6 



The Keyboard 




If-JFiMtTy 

a * *. 

I9S 
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When a key is pressed, contacts on the inside of the 
key close and touch. This connection causes the short 
which ultimately results in the bit being set. 
Unfortunately, this connection may not be solid. 
Therefore, the key is pressed and the connection made. The 
scanner picks this up. Then, the connection is lost while 
the contacts settle (contacts bounce against each other) . 
The scanner clears KBIMAG since the key is "no longer 
pressed." The connection settles. The scanner finds this 
new key. Gee, auto repeat! Not funny, especially to those 
who are plagued by it. 

What is truly amazing about all this is that Radio 
Shack has actually responded to all the complaints I The new 
keyboards coming from the Shack have gold contacts. They 
are easier to use when touch typing since the are slightly 
curved, have a matte finish, smaller keycap lettering, and 
respond to a faster stroke. These keyboards are virtually 
"bounceless." 

But what about the poor soul with the old keyboard? 
There is currently a tape that eases the discomfort of the 
bounce. In addition, many "debounce" routines have been 
published in magazines. Choose the most convenient one 
that works and stick with it. [Debounce routines cause the 
scanner to pause for a set period of time while the 
contacts settle before continuing.] 

By the way, most people have heard that cleaning the 
contacts under the keys will decrease bounce. This is true 
on the OLD keyboards; however, do NOT try to remove the 
keycaps on the new keyboards. You would probably rather 
spend the $250 on software.... Also, most of the new disk 
operating systems have debounce routines build-in. 

We need a bit more on scanning before we get to the 
meat of keyboard interfacing. We have discussed how the 
TRS-80 uses the eight addresses which have only one bit set 
in the LSB. Anyone have a guess how we might use the other 
addresses? 

First of all, the a-RS-80 ROM does not utilize the 

other addresses under Level II. But, they can be used from 

an assembly language procedure. First of all, let's look 
at the LSB of an address: 

C1H « 1100 0001 
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This LSB has bits 7, 6, and set. This means that a scan 

at a KEYMBM location with this LSB (i.e., 38C1H) would scan 

for characters in rows 7, 6, and 0. For example, if the 

value at 38C1H is 1001 0001 (91H) , the keys pressed could 

be G, D.A, and SFT. Of course, other combinations are 
possible. 

To test whether or not ANY key is pressed on the 
keyboard, you can scan location 38FFH. Since all keys map 
to this location (FFH = 1111 1111), if (38FFH)=0 then no 
key is pressed. You may want to examine the lowercase 
driver in Appendix B for a method of scanning and decoding 
which allows auto repeat and specially defined keys. 



KEYBOARD DCB 



The keyboard DCB format is 
TRS-80 Level II BASIC operation: 



as follows for standard 



4015 
4016 

4018 
4019 



01 

E3 03 
00 
00 



401A 00 
401B 4B49 



KEYDCB 

KBTYP 

KBDADR 

KBCONS 



EQU 

ORG 

DEFB 

DEFW 

DEFB 

DEFB 

DEFB 

DEFM 



4015H 

KEYDCB 

01H 

03E3H 

00H 

00H 

00H 

'KI* 



;KB DCB Location 

; Input device 
;Address KEYIN driver 
;Keyboard constants 



To use an alternate keyboard driver, you would have to 
change the driver address at location 4016H in a manner 
similar to the following: 



KEYDCB 


EQU 


4015H 


KDBADR 


EQU 


KEYDCB+1 




LD 


HL, KEYDRV 




LD 


(KBDADR) ,HL 




JP 


06CCH 


KEYDRV 


XOR 


A 



RET 



; Keyboard DCB 
;KB Driver address 
;Ld address new DRVR 
; Store new address 
?Re-enter BASIC 
;New keyboard driver 
; (Locks keyboard) 
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INTERFACING ROUTIBES 

The following assembly language interfacing routines 
should be used to input characters from the keyboard. Use 
care and note all special considerations listed. Prudence 
dictates that you also refer to the disassembly at some 
point. This is necessary to best understand what is 
happening inside the machine during ROM subroutine 
execution. 



Single Character Scans 

The following routine scans the keyboard. If a new key is 

pressed, the ASCII value of the key is returned. If no new 

* - — ---*- — ASCII null 



key is found, 
(NUL = 00H) . 

KBSCAN 



the routine returns 



an 



PUSH 

CALL 

POP 

OR 

JP 

JP 



DE 

2BH 

DE 

A 

Z,KOKEY 

KFOUND 



?Save 'DE 1 

;Scan keyboard 

;Restore 'DE' 

;Set flags 

;If value returned is 

;00H, no key found 

;A new key was hit. 



You may also use another routine which does not require you 
to save 'DE ! . However, you must be careful when using this 
routine under many DOS systems. At location 0358H, this 
procedure does a CALL to 41C4H. This is what is refered to 
as a "hook." Under normal Level II, 41C4H contains a C9H, 
the opcode for RET. Under disk systems, this may be 
changed to a jump to another routine, possibly causing 
unpredictable results. Control of this area is left to the 
programmer. 

;Hook at 41C4H should be considered. 

KBDSCN CALL 0358H ;Call the scan 

OR A ;Set flags 

JP Z,NOKEY ,*No key found 

JP KFOUND ;New key pressed! 
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Single Character . Inputs 

The following routines scan the keyboard until a key 
has been pressed and return the value in register 'A. 1 A 
possible problem with this looping is the system is "hung" 
until a key is pressed [Note: The code returned for BREAK 
is 01H. BREAK is used on most systems to interrupt 
execution. However, on the TRS-80, the user's program must 
detect the code for BREAK and operate accordingly.] 

GETCHR PUSH DE ;Save 'DE' 

CALL 0049H ;Get a character 
POP DE -'DE' restored 

,*Char. in 'A' 

Another routine to input a character saves ! DE' but also 
has a disk hook at 41C4H (the same hook as KBDSCN, since 
this routine calls KBDSCN) . Be sure to consider this hook 
when using the following call. 

;Hook at 41C4H should be considered. 
GTDCHR CALL 0384H jGet a character 



A note about the above routines: each of the routines 
which scan the keyboard for a character do NOT display the 
character on the screen; they only return the ASCII value 
resulting from the scan. If these characters are to be 
displayed as they are detected, the programmer must 
specifically CALL another routine. You may want to refer 
to the section in the next chapter on displaying single 
characters on the video. 
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Buff e red hiriQ Input 

The routine BUFFIN can be used to input a 
programmer-defined maximum number of characters into a 
buffer. The routine displays each character on the video 
as it is entered into the buffer. This routine is 
especially useful since all of the standard TRS-80 control 
characters can be used. For example, the left arrow 
performs a backspace and erases the last character. The 
CLEAR key erases the screen and the buffer. Shift left 
arrow erases the current line. This is the same routine 
that is used to input a BASIC text line. The interface is 
as follows: 

Input ' B' characters 
into a buffer of 
length ' B'+l 

Point to buffer 

'DE 1 saved 

' BC 1 saved 

Get buffer of chars. 

Carry set if BREAK 

hit to end input 
Save number of chars 

in buffer 
Restore 'BC 
Restore 'DE' 



BUFFIN 


LD 


B,MAXCHR 




LD 


HL, BUFFER 




PUSH 


DE 




PUSH 


BC 




CALL 


05D9H 




JP 


C, BREAK 



LD 

POP 
POP 



A f B 

BC 
DE 



As you will note 
BUFFIN routine 
maximum number o 
Special Note: The 
ending character 
placed into the 
is set if the in 
number of charac 
the beginning 
execution. 



from the above example, on entry to the 
located in ROM at 05D9H, ' B' contains the 
f characters to input into the buffer. 

buffer MUST BE OF LENGTH » B'+l since the 
Eeither i^NTER (ODH) or BREAK (01H) 3 is 
buffer also. Upon return, the carry flag 
put ended with a BREAK and 'B' contains the 
ters in the buffer. 'HL' should point to 
of the buffer both before and after 
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There are other ways to interface with the ROM 
routines to get input from the keyboard. However, the 
routines outlined above serve most admirably and require 
the least amount of preparation before making the CALL. You 
may refer to the ROM disassembly for other less elegant 
interfacing procedures that may be used to input from this 
device. 

This concludes the discussion of the keyboard. Now 
that we have a method available to us to get data from you 
to the computer, let's look at getting data from the 
computer to you. 
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The video display is the primary output device 
used on the TRS-80. The screen is "driven" by a 
Cathode Ray Tube (CRT) in the video display. The 
electronic beam of the CRT travels from the top of the 
screen to the bottom and from left to right. Each screen 
consists of 264 scan lines. Of these only 192 scan lines 
are used for the picture? seventy-two lines are used as 
upper and lower boundaries. Nothing is ever written or 
visible within these 72 lines. Each screen consists of 
either 1024 (400H) or 512 (200H) character locations, 
depending on whether the machine is in 64-character or 
32-character mode. There are 16 character lines, each 
consisting of 12 scan lines. Each alphanumeric character 
uses the upper seven of the twelve lines; the five lower 
lines are used as blank scan lines to provide for spacing. 
That's enough of the technical trivia — on to the useful 
stuff. 



CHARACTER OUTPUT 

We'll cover character output first since it is fairly 
straight forward; graphics output is more complicated. 

When used for character output, the video should be 
viewed as a simple 16 row by 64 column matrix. Each of 
these locations corresponds to one of the members of the 
video RAM area which begins at 3C00H and ends at 3FFFH. 
This area is referred to as CRTMEM (The video is a 
memory-mapped device addressed at 3C00-3FFFH) . Each row in 
the matrix is 40H entries in length. Therefore, row 1 is 
at 3C00H-3C3FH, row 2 is at 3C40H-3C7FH, etc. A complete 
breakdown of the rows by their beginning memory address 
(begin) , middle address (begin + 20H) , and last address 
(begin + 3FH) is as follows: 
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ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 8 
ROW 9 
ROW 10 
ROW 11 
ROW 12 
ROW 13 
ROW 14 
ROW 15 
ROW 16 



Begin 

3C00H 
3C40H 
3C80H 
3CC0H 
3D00H 
3D40H 
3D80H 
3DC0H 
3E00H 
3E40H 
3E80H 
3EC0H 
3F00H 
3F40H 
3F80H 
3FC0H 



3C20H 
3C60H 
3CA0H 
3CE0H 
3D20H 
3D60H 
3DA0H 
3DE0H 
3E20H 
3E60H 
3EA0H 
3EE0H 
3F20H 
3F60H 
3FA0H 
3FE0H 



Last 

3C3FH 
3C7FH 
3CBFH 
3CFFH 
3D3FH 
3D7FH 
3DBFH 
3DFFH 
3E3FH 
3E7FH 
3EBFH 
3EFFH 
3F3FH 
3F7FH 
3FBFH 
3FFFH 



The video RAM is written to and read from in the same 
manner as regular memory. The actual memory consists of 
8 static RAMs which do not require refreshing. To display 
any printable ASCII character on the screen, simply place 
the code for the character into the video memory. The 
video generator will do the rest. 

Remember, all ASCII characters are not printable . If 
you were to place in video memory the ASCII value for a 
non-printing character, a backspace (08H) for example, it 
would not cause the intended action on the screen. 
Instead, it would display as an "H" (48H) . It is stored in 
the video memory as a 08H, but the video generator displays 
on the screen the ASCII equivalent of 48H. 

This is the case on most new machines with lowercase 
capability built in. However, on the early machines (ones 
without the 8th static RAM for bit 6) , the computer uses 
another method of determining the value of the sixth bit. 
On these machines, if both bit 5 and bit 7 are off, then 
bit 6 will be high. This means that for values placed into 
the video RAM of a magnitude less than 20H, bit 6 of the 
byte will be set (the equivalent of adding 40H) • For this 
reason, you should not use video RAM for data storage. 
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Example 



01H = 0000 0001 placed at 3C00H on a machine without 

the bit 6 static RAM becomes 
41H = 0100 0001 



Now that we have covered the basics of printable 
character output, let's discuss the TRS-80's graphics. 



GRAPHICS OUTPUT 

The video screen when it is used for graphics display 
may be broken down to 6144 positions arranged in a 48 row 
by 128 column grid. Each position in the grid defines a 
pixel (picture block, sometimes called a graphics block) 
three dots wide by four lines high. When compared to the 
character format, the area on the screen which is occupied 
by one character may be broken down into six pixels 
(2x3 block) . Each of these pixels may be turned on or off 
independently of the the other pixels. We will number the 
pixels located in one RAM location in the following manner: 

1 
2 3 

4 5 



But how do we control each pixel? Let's look at the 
binary value retrieved from the video memory. This value 
is from a block with all of the pixels on: 

BFH = 1011 1111 

Each of the lower 6 bits (b0-b5) correspond to one of the 
pixels. Bit 6 is unused. Bit 7 is used as the "graphics 
indicator"? when this bit is on, the lower six bits are 
used to determine whether a pixel is on or off. As you 
might have guessed, bit corresponds to pixel 0, bit 1 
matches with pixel 1, and so on. Gee, that's pretty 
logical. 

For a complete list of graphics characters and their 
hex and decimal values, you can refer to Appendix E in the 

back of the book. 
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Since bit 7 determines whether the bits are used to 
define a graphics block or a character block, you cannot 

have a printable character and a graphics character 

corresponding to the same address in the video RAM. To 

display a character, bit 7 must be off. To display 

graphics pixels, bit 7 must be on. Obviously, we cannot 
have both. 

You may be familar with the SET and RESET instructions 
in BASIC. Using these commands, you can set ("turn-on") or 
reset ("turn-off") any individual graphics block on the 
video screen. The assembly language code for these 
commands is not as simple as just "set this block" or 
"reset this block." The software must calculate which of 
the 1024 locations must be used for an individual pixel. 
How might this be done? 

First of all, the row number (0-47) is divided by 
three and the integer result is multiplied by 40H (the 
length a row). This value is added to the column number 
divided by two. This produces the relative offset of the 
byte to be used (add 3C00H to produce the address) . The 
remainder of the row division (0, 1, or 2) is used to 
determine the row within the block and the remainder from 
the column division (0 or 1) is used to determine the 
column position. If you are interested in the assembly 
language code which performs these functions, it is located 
in ROM from 0132H to 019BH. 
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Here is a short little routine which demonstrates some 
of the above concepts: 

This assembly language routine will 

scan the video memory, picking out the graphics 

characters, setting the blocks which are off 

and resetting the blocks which are on. 

By repeating the routine again, the original values 

are restored. 



FLASH 



CLOOP 



NEXT 



LD 


HL,3C0OH 


LD 


BC400H 


LD 


A, (HL) 


BIT 


Ifh 


JR 


Z,NEXT 


CPL 




OR 


80H 


LD 


(HL) ,A 


INC 


HL 


DEC 


BC 


LD 


A,B 


OR 


C 


JR 


NZ, CLOOP 


CALL 


0060H 


JR 


FLASH 



Pt. to beginning of 

the screen 
1024 locations 
Check character from 

the video RAM 
Test graphics bit 
If off, not graphics 
Turn l's to 0*s and 

0's to l's 
Set bit 7 (graphics) 
Place back in RAM 
Next RAM location 
Dec location count 
Get MSB of count 
Test 'BC for Zero 
Loop if not done 
Delay CALL 
Loop again, flashing 

the graphics on the 

screen. 



As you will recall, each of the 1024 elements of the 
video screen can be individually defined as either a 
graphics character or a printing character; it is 
determined by the status of bit 7 — on for graphics, off for 
characters. To control each of the pixels in a 
6-pixel-block, you can set or reset bits 0-5. 

Now that we have the basics of programming the video 
display, on to the interfacing! 
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The video DCB format is 
TRS-80 Level II BASIC operation: 



as follows for standard 



401D 07 



CRTDCB EQU 401DH 

ORG CRTDCB 
CRTTYP DEFB 07H 



401E 5804 CRTADR DEFW 0458H 

4020 003C CURPOS DEFW 3C00H 

40 22 00 CURCHR DEFB 

4023 444F CRTCON DEFM 'DO 1 



;Video DCB Location 

? Output, Input, 
; and Control Type 
;Address VIDEO driver 
;Cursor position 
/•Character at cursor 
;Video device name 



To change the address of the video driver, you could modify 
the contents of CRTADR (401EH) , placing the address of the 
new driver at that location. 

The video driver maintains the position of the cursor 
on the screen (3C00-3FFFH) . The position is stored at 
locations 4020-4021H in standard L,H format. [L,H format is 
used for storing WORDS (2 bytes long)- in memory in 
LSB- first, MSB-second order. L,H refers to the order that 
the register ' HL 1 would be stored in the instruction 
LD (ADDR),HL. , L' would be stored at ADDR; H would be 
stored at ADDR+1. You can also remember L,H as LOW, HIGH. 3 

CURCHR is used to save the character that is "under 
the cursor." As the cursor moves across the screen, it 
"covers" a character as it moves into the next position. 
The driver takes the byte stored in the address where the 
cursor is displayed, stores it in CURCHR, and replaces it 
with a 5FH (the cursor character). When the cursor 
continues, the cursor character is replaced by the original 
contents. 
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INTERFACING ROUTIHES 



The following assembly language interfacing routines 
should be used to output characters and graphics to the 
video. You may want to refer to the disassembly at some 



point to 
drivers. 



firm up your knowledge of the video and its 



Single Ch a rac ter . O ut p ut 

The following routine takes the character in *A' and 
outputs it to the video at the cursor position (defined by 
CURPOS at 4020-4021H). Since ».e are accessing a video 
driver by using this routine, we can now specify the 
special control codes (Q1-1FH) . These codes are NOT placed 
in the video memory, but cause some cursor or screen 
action. For example, if we send the backspace character to 
the video driver, the cursor will backspace one character 
position and erase the previous character (unless it is 
already at the beginning of the screen) . For a full list 
of these codes, refer to Appendix D. 



:rtbyt push de 

CALL 0033H 

POP DE 



;Save 'DE* 

;Output the character 

; stored in , A I 

; Restore 'DE* 



The following interface is probably the best to use 
since it maintains the cursor position indicator at 
40A6H (CRTPOS) . This is the routine used most often by the 
ROM. The f DE* registers are saved by this routine also. 
The interface is as follows: 



CRTOUT 



LD 
CALL 



A, CHAR 
033AH 



;Load display char. 
;Output the char. 
? CRTPOS (40A6H) is up- 
; dated automatically 
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A routine that is often used in conjunction with the above 
interface is POSIND, which returns the current cursor 
position on the line in the 'A' register. This routine 
compensates for double width characters. 



POSIND CALL 0348H 

LD (40A6H) ,A 



Determine pos on CRT 
Store position in 
CRTPOS 



Remember , the above routines can be used to send control 
codes, printing characters, graphics characters, and the 
space compression codes. The value sent to the driver is 
interpreted by it, and the request is handled accordingly. 



Clearing The Screen 

, The easiest way to clear the -creen is 
simple call to the CLS routine as shown below: 



to make one 



CLS 



PUSH 


AF 


CALL 


01C9H 


POP 


AF 



;Save "AF* if need be 
;Clear the screen 
;Restore 'AF' 



Note: When the screen appears clear, it is actually full 
of spaces (20H*s) . 



SET, RESET , and POINT 

It is not easy to interface to the ROM 
routines SET, RESET, and POINT due to several interactions 
with other ROM routines. However, with the information 
given above regarding the workings of the video and with 
the ROM routines at 0132-019CH as a guide, it should be 
easy to write a routine whicn better suits your needs. if 
you wish to use the routines, you may refer to our 
modification of the SET, RESET, and POINT sections in 
Appendix F. 
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In put From Video 

As mentioned in chapter 1, it is possible to input 
from the video. By performing a CALL to INBYT when the 
video DCB has been specified, the character at the cursor 
position on the screen is returned to the user as follows: 

LD DE,401DH ; Specify video DCB 
INBYT CALL 0013H ;Get byte from cursor 

? into 'A 1 register. 

The value retrieved depends on whether the cursor is on or 
off. If the cursor is on, the value which is stored in 

CURCHR is returned in register 'A 1 . If the cursor is off, 
•A' will contain the value in the video RAM address 
specified by the cursor location on screen (CURPOS) . 

The video display is used for most output; however, 
there are times when we would like to print output from our 
TRS-80. In the next chapter we will discuss interfacing a 
parallel printer to a TRS-80 Level II. 
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The standard Level II TRS-80 comes with a keyboard 
unit which contains the CPU and the major processing 
hardware. In addition to the keyboard, one is supplied 
with a video display and a tape unit. This set-up works 
well, to a point. A major drawback is that to take data 
from one place to another in a form that can be read by 
human eyes, you have to be able to get a printout of the 
information on paper. For this purpose, most owners have 
purchased or are considering the purchase of a printer. In 
this chapter, we will discuss assembly language control of 
a parallel printer. 

When the TRS-80 ! s first appeared, the owner had to 
purchase an Expansion Interface for $299 dollars before he 
could attach a printer to the Level II system. Recently, 
Radio Shack has added new cables to their line which allow 
the direct connection of a parallel printer to a 
TRS-80 Level II. [For the exact catalog number of the 
cable for a specific printer, you can contact Radio Shack 
or refer to their catalog. Most printers will use either 
26-1411 or 26-1416. 

The ROM has a driver built in to support a parallel 
printer addressed (memory-mapped) at LPTADR (3 7E8H) . The 
driver uses ROM at 058D-05D8H. It is a very simple driver, 
but it does work for most Centronics-type parallel 
printers. For a more sophisticated printer driver, you may 
refer to the assembly language listing in Appendix H. 

Why was the parallel interface chosen? In the words 

of Radio Shack, "This interface type was chosen because it 
is a widely used industry standard, is reliable and is 
easily implemented." This statement is essentially 
correct. The parallel interface for the TRS-80 is very 
reliable. For this reason, one should probably purchase 
one of the many parallel printers on the market, by-passing 
the serial printers. Many owners of serial printers have 
found that using the RS232-C and having to load a driver 
every time they wish to print anything to be frustrating. 
The ROM has a built-in parallel driver; a separate driver 
is needed to operate a serial printer. An application in 
which a serial printer is necessary is one that requires 
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that input from an external printer be entered into the 
computer via the RS232-C. 

LIKE PRINTER STATUS 

The line printer port (37E8H) has four status bits. 

These bits show the conditions busy f out of paper, 

device selected, and no fault. The corresponding bits are 
as follows: 

kit Status if bit set 

7 BUSY 

6 OUT OF PAPER 

5 DEVICE SELECTED 

4 NO FAULT 



BUSY means that the printer is unable to accept any data. 
This condition can occur when the printer is off, has a 
full buffer, is printing a line, is out of paper, or is 

just not prepared to print because of some physical 
condition such as no ribbon or the top is up. 

OUT OF PAPER is self-explanatory. When the printer switch 
(if one is present) detects that the paper is out, the 
printer sets this bit. The expansion interface takes this 
status and ORs it with the BUSY bit. Therefore, if the 
printer is out of paper, it will also be busy. However, 
contrary to RS documentation, if the printer is shown as 
busy, it will not necessarily show as out of paper. 

DEVICE SELECTED is incorrectly documented in Radio Shack 
literature. This bit is used to show whether the printer 
is ONLINE (connected and in remote mode, ready to receive 
data from the computer) . It is used, along with NO FAULT 
by the printer driver in ROM, although the latest 
documentation out of Tandy says that it is not. 

NO FAULT is a bit that signifies whether an error condition 
is present in the printer (paper out, etc.). It is a 
logic-1 flag, as is DEVICE SELECTED, which means that it 
must be on to signify that the printer is ready to receive 
data. 
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The routine in ROM which checks for printer ready is 
as follows: 



PSTATU 



LD 


A, (37E8H) 


AND 


OFOH 


CP 


30H 


RET 





;Get printer status 

;Clear low bits 

;If ready, Z flag set 



Now, let's look at the format of the printer DCB before we 
get to the interfacing. 



PRINTER DCB 

The format of the line printer DCB as it is initially 
set by the Level II bootstrap is as follows: 



4025 01 LPTTYP DEFB 06H 



4026 8D05 LPTADR DEFW 

4028 43 LPTLPP DEFB 

4029 00 LPTLCT DEFB 
402A 00 LPTCON DEFB 
402B 5052 DEFM 



058DH 

67 





'PR' 



?Printer=Output 
; and control codes 
;Driver address 
;Lines/page 
jLine counter 
?Printer constants 



Radio Shack incorrectly set the number of lines per page at 
67 in ROM. The correct setting should be 66 for standard 
8.5 x 11" paper. If the ROM driver is to used to skip to 
the top of page upon receipt of a control-!, <FF=GCH>, you 
should correct this setting using a POKE 16424,66. It 
would be nice to change this value permanently, but all DCB 
values are copied from ROM to RAM at power- up. 

The line counter is maintained by the driver. It is 
incremented once after every carriage return or linefeed. 
This value is used in conjunction with the number of lines 
per page to determine how many linefeeds should be issued 
to advance to the top of the next page when a formfeed is 
received. 
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IHTERFACIEG ROUTINES 

The following routines can be used to access the 
parallel printer driver in ROM. Remember, these routines 
suffer from the same problem as BASIC when using the 
printer; if there is not a printer present, the system will 
"lock-up." To avoid this, you may want to create a 
"NULL DRIVER" if the printer is not present. In assembly 
language, the format is as follows: 

NOPRNT LD A,0D0H ;LSB of a RET inst. 
LD (4026H),A ,*Change driver addr. 
RET ;Printer off 

To get it back: 



PRNTON LD 
LD 
RET 



A,8DH 
(4026H) ,A 



;LSB of driver addr 
;Restore old driver 
;Printer now on. 



In BASIC: 



1000 POKE 16422,208 
2000 POKE 16422,141 



'Printer off 
'Printer on 



By turning the printer into a null device, you will not 

lock-up the computer if the printer is not present. A 

better method is to write a small lead-in routine to the 

printer driver which checks the status of the printer, and 

if the user holds down the <CLEAR> key, do not send the 
byte to the printer driver. A possible routine follows: 



CKPRNT 



ORG 


4026H 


DEFW 


CKPRNT 


ORG 


7FE0H 


LD 


A, (37E8H) 


AND 


0F0H 


CP 


30H 


JP 


Z f 058DH 


LD 


A, (3840H) 


BIT 


1,A 


RET 


NZ 


JR 


CKPRNT 



rSet new driver 

[Possible ORG addr. 

:Get status 

;Mask low order bits 

i Ready? 

:Goto printer driver 

: if printer ready 

:Check for clear 

:Test for <CLEAR> 

^Return if pressed 

Loop until ready 
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Si ng le Character Output 

The following routines output the character stored in 
register 'A' to the printer. Remember to consider system 
lock-up when using these routines. 

PUSH DE ;Save 'DE 1 

LPTBYT CALL 003BH ;Output 'A« > printer 



;Restore 'DE 



This next routine also saves the * DE' registers and 
maintains the current line position (number of characters 
sent to the printer in the current line) at LPTPOS (409BH) . 
This is the routine used by BASIC which changes all 
linefeeds to carriage returns. 

LD A, CHAR ;Load print character 
LPDCHR CALL 039CH ,-Output to printer 



These are the only two ROM routines which specifically 
support the printer. The printer is one device for which 
you will probably want to use a more sophisticated driver. 
It would be wise to refer to the printer driver in ROM for 
hints and programming techniques. 

We have now discussed the keyboard, video, and 
printer. Only one more device remains. In the next 
chapter, we will fully discuss the mysteries of the tape 
unit, how to use the ROM tape routines, and how to write 
your own tape driver. 
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To the first-time user, the tape unit is the device 

which causes the most confusion and frustration. All we 
know when we buy a TRS-80 is that if we type CSAVE, our 
program (which we know is stored as numbers) is converted 
to sound on cassette tape. Then, we type CLOAD and 
sometimes it loads correctly, and sometimes it doesn't. 
Furthermore, we buy a program, and after 27 tries at 
getting the proper volume, we give up hope. Is it the 
tape? Is it the recorder? Is it the computer? We don't 
even know what is happening! This chapter is designed to 
answer these questions and to give a complete explanation 
of the tape unit. After reading the following material, 
you still may not be able to load that tape, but at least 
you will know some of the causes. 



TAPE HARDWARE 

As a hardware device, the tape uses a latch (see 
explanation below) which is accessed through Z80 port OFFH 
(255) . The use of the various bits depends on whether the 
operation is an OUT or an IN. Let's cover OUTput first. 

Upon output to port OFFH, the hardware takes the upper 
four bits and discards them. The lower four bits are used 
to control the video format, the cassette motor, and the 
output voltages as follows: 



Bit Output to port FFH use 

3 Video Display Mode Select 

1=32 char. /line 

0=64 char. /line 

2 Cassette motor relay 

l=ON 
0=OFF 

1 CASSOUT B Signal 

CASSOUT A Signal 
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The output signals defined by 
as follows: 



CASSOUTs A and B are defined 



CAS SOU T 


A 


B 








1 


1 





1 


1 






Output signal 



No signal (0.46V) 

Low signal (0.00V) 

Low signal (0.0 0V) 

High signal (0.85V) 



Input from this port uses only the two highest bits. 
Bit 7 is used for cassette input (the decoded CASSIN signal 
is latched here until the software clears it). Bit 6 
is used to indicate the Display Mode (0 - 32 char., 
1 = 64 char.). The reset of the bits are set to l's. 

The pinouts (for what each pin is used) are not 
necessary for using the cassette tape, but are provided for 
informational purposes. If you look at the DIM plug, 
facing the pins toward you, they are numbered from left to 
right: 



Pin Signal-Name Description 



1 MOTOR ON/ OFF 

2 GROUND 

3 MOTOR ON/ OFF 

4 CASSIN 

5 CASSOUT 



Controls tape motion 
Signal ground 
Controls tape motion 
READ signal from tape 
WRITE signal from TRS-80 
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One other bit of hardware is used with the cassette, 
but only if you have an expansion interface. If you have 
one, you may define select between the two possible 
cassette drives by outputting to 37E4H. If you wish to 
select drive 1, use: 

XOR A ; Reset bit 

LD (37E4H),A ; Select drive 1 

To select drive 2, use: 

LD A,01H ;Set bit 

LD <37E4H),A ?Select drive 2 

Now that we know the hardware, let's look at the 
software that is used to control it. 



TAPE SOFTWARE 

As stated in chapter 1, the tape unit does not use a 
DCB. It does have one RAM byte which is used as a status 
flag. It is CSTATU, and is located at 403DH. It is a 
mirror image of the last byte OUTput to port FFH. It 
is used as a flag to determine whether the cassette 
is on and whether the machine is in 32-character or 
64~character mode. It is also used to clear the 
Cassette Flip-Flop (CFF) . Let's look at how information is 
written to tape. 



Write Data 

Data is written to the tape one bit at a time. For 
each bit of data, there is one clock bit which is used to 
synchronize the software. One bit is written to tape by 
sending a high signal (A=1,B=0) followed by a low 
signal (A=0,B=1). EThe bits are written as a single cycle 
of a square wave with a period of 265 microseconds (a 
frequency of just under 4 kHz) 3. This is followed by the 
"no signal" for about 735 microseconds. The total time is 
about one millisecond. This is for one Mi. This bit does 
not necessarily represent data, just a bit. Well then, how 
do we get a bit of data on the tape? 

First, we send the clock bit. This bit is going to be 
used by the read routine to signal that a data bit follows. 
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The next operation depends on whether the data bit to be 
written is a one or a zero. If it is a zero, we simply 
delay for one millisecond. If it is a one, we write 
another bit to the cassette. Simply, the presence of a 
pulse on the tape following a clock pulse denotes a 1? if 
no pulse is present, the data bit is a 0. Data is written 
to the tape as a constant stream of clock bits, followed by 
either a pulse to mean a one, or no pulse to mean a zero. 

As one should see, to write a byte, the software must 
repeat above procedure eight times, once for each bit. 
For a byte, the bits are written in decreasing order 
(7,6,5,. .. ,0) . Also, since it take 2 milliseconds to write 
or read each bit of data, the tape can process a total of 
500 bits per second or 62.5 bytes/second. 

All bytes for all the different tape formats supported 
by the ROM are written in this manner. The problem is 
reading what has been written. Unfortunately, this is 
where the errors come in.... 



Read Data 

The reliability problems associated with the cassette 
come from many areas. First of all, the cassette recorder 
is of very low quality. And, as with all recorded 
material, the media plays a very important role; cheaply 
made tapes do not work as well as better quality ones. 
[Note: the actual price you pay has little to do with the 
quality. For example, some stores discount high quality 
tapes which gives them a low price tag, many times less 
than "garbage" tapes.] But the biggest problem is timing. 
In the older ROMs ("MEMORY SIZE?"), the section to read a 
bit from the cassette did not wait long enough for the 
pulse to be detected before continuing. Therefore, data 
bits that should have been l's were read as 0's. The new 
machines ("MEM SIZE?" have increased the timing delay by 
about 10 microseconds for the data bit (if present) to be 
latched. 

We've mentioned "latch" here, but you haven't been 
told what one is. Electronic signals such as the pulse 
read from the cassette do not "stay around." They are 
present for only a brief time (brief even in relation to a 
microsecond) . Therefore, it must be latched. If the 
signal goes high, it sets the latch which stays high until 
it- is reset by the software. The reset of the cassette 
latch is done by doing an OUT to the cassette port. The 
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ROM routines use CSTATU and simply output its value. The 
routine CLRCFF at 021EH performs this function after every 
bit is read. 

In addition to the above problems, tape reading errors 
can be caused by a bit being dropped (lost) from the tape. 
If the tape is exposed to a magnetic field, it will almost 
certainly lose at least one bit. Unfortunately, there is 
no way to recover such a loss. 

The interfacing to the tape read and write routines 
are given after the discussion of tape formats. A very 
good reference for the actual decoding of the audio signal 
is given in the TRS-80 Technical Reference Manual 
(Catalog 26-2103) . 



TAPE FORHATS 

There are four different tape formats that are used by 
the computer. These are the BASIC language source tapes, 
the SYSTEM tapes, BASIC langauge data tapes, and Assembler 
source tapes. There are of course other tape formats 
written by non-Radio Shack suppliers of software. These 
will not be discussed here. 

In order to assure synchronization at the beginning of 
the tape # a leader of 255 bytes of zero is written. Since 
a zero byte will only have clock bits occuring on the tape, 
by waiting until a pulse is detected, the tape reading 
program is guaranteed to find a clock bit rather than a 
data bit. Following this synchronization, the TRS-80 will 
wait for a clock bit before each data bit. This 
compensates for motor speed fluctuations. This same leader 
is written out at the beginning of each tape format 
described in this section. 

While reading the leader, the tape program shifts each 
new bit into the accumulator at the low end and checks the 
new value in the accumulator. This is done until 'A' 
contains the value A5H (10100101 - a symmetrical bit 
pattern) . This syncnronization byte is used to mark the 
beginning of the data bytes on these tape formats. 



BASIC PROGRAMS 

The first tape type we will discuss is the one 
produced by the BASIC command CSAVE. Following the A5H 
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there are three bytes of D3H to indicate the tape type. 
This is followed by the single ASCII character that was 
specified following CSAVE (the name of the program). This 
in turn is followed by a series of program lines in the 
following form. 

First are two bytes representing a pointer to the 
memory location that the line following the present one 
occupied at the time of CSAVE. This is followed by two 
bytes that contain the binary representation of the line 
number. Next come a variable number of ASCII bytes that 
represent the actual text of the BASIC statement line with 
compressed keywords. The end of the line is marked with a 
byte of zero (00H) . There is one of these constructs for 
each line of the BASIC program. To indicate the end of the 
program, there are two bytes of zero. 

Note that no error checking is performed! Therefore, 
one has no way of knowing whether the tape was loaded 
correctly except by doing a CLOAD? which takes up a lot of 
time if it is a long program. This format is definitely a 
drawback. Microsoft should have used a diferent format. 

If you have a disk system, you should note that the 
addresses placed on the tape are those that were in the 
program at the time it was CSAVE' d. Since the BASIC 
interpreter places the line in the appropriate memory 
location, you can read tapes under Disk BASIC that were 
written under Level II BASIC and vice versa. However, 
CLOAD? will always report a faulty load if transfering from 
one BASIC to the other. 



DATA TAPES 

The data tapes produced by BASIC are quite simple. 
After the leader and sync byte, the data is present as 
ASCII with a leading blank or minus sign and a trailing 
blank for numeric data. Individual items are separated by 
commas. Each PRINT# statement generates a new leader and 
sync byte. 

Again, no checksum is usedl If you are doing BASIC 
programming and use the tape to store and retrieve data, be 
sure to add some error checking or data validity routines. 
If you don't, you may be very surprised by the results. 
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SYSTEM TAPES 

The SYSTEM tapes have a much different format than 
either of the preceeding. Following the leader and sync 
byte, there is a 55H byte that is the header for the tape 
name. The name field is the next six bytes in which the 
ASCII name is left justified and padded with blanks if it 
is less than six characters long. Following the name are a 
variable number of records which can be of variable 
lengths. The records are formed as follows. 

The first byte of each record is a 3CH. This is 
followed by a byte that contains the length of the record 
(a zero means the record is 256 bytes long) . Next come two 
bytes in LSB/MSB order which is the starting memory address 
where the current record should be stored. These are 
followed by the data bytes as specified by the length. The 
final byte is the checksum which is the sum of all the data 
bytes and the memory address (if this byte does not match 
the calculated value, the SYSTEM loader in ROM will place a 
, C in the upper corner, but it continues to load records. 
This at least gives some visual indication that the tape is 
bad) . This format is repeated as many times as is necessary 
to load all the data. The end of the tape is signaled by a 
three byte trailer starting with 78H. This is followed by 
two bytes in LSB/MSB order which contain the transfer 
address of the program. You may wish to refer to the 
alternate SYSTEM loader in Appendix C. 



ASSEMBLER SOURCE TAPES 

These tapes start with a D3H byte following the leader 
and sync byte. This is followed by a six byte ASCII name 
field. The text lines follow. 

Each line has a five byte line number in ASCII format 
with bit 7 set to differentiate these line numbers from 
other numbers in the text. Next there is an ASCII 
space (20H) . This is followed by the ASCII text and 
finally by a carriage return (ODH) . This format is 
repeated for each line. The end of the tape is indicated 
by a 1AH. Once again, no error checking is performed. 
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INTERFACING RODTISES 



The following 15 ROM interfacing examples cover all 
the reading and writing of data to the tape unit, and 
includes the control of the cassette recorder. 



Cassette Recorder and Latch Control 



The following routine turns the cassette drive 1 on. 
First it does a check on the character at (HL) to see if it 
is a pound sign (#). If it is not, drive 1 = (which is 
selected by outputting a 00H) is turned on. If it is a 
pound sign, the number starting at (EL+1) is converted to 
an integer. A syntax check is then performed for a comma. 
Then the integer value is converted to a drive number. If 
the driver number is invalid, Illegal Function Call 
results. Take care when using this routine that HL does 
not point to a stray pound sign, or you may find yourself 
in BASIC. 



CTON 



PUSH 


HL 


;Save 'HL' 


LD 


HL,0 


; Point HL to safe loc 


CALL 


01FEH 


;Turn cassette drive 
; on. 


POP 


HL 




RET 







This routine defines the drive in register 'A' (Drive 
number -1) by outputting to the cassette select latch. It 
then turns on the drive. 





LD 


A,l 


;Drive 2 


DEFDRV 


CALL 
RET 


0212 


;Define drive 2 
; Drive on 




LD 


A,0 


;Drive 1 


DEFDRV 


CALL 
RET 


0212 


? Define drive 1 



This routine turns the cassette off. 
is used and must be saved. 



The accumulator 



CTOFF 



PUSH AF 
CALL 01F8H 



?Save 'AF' 

; Cassette off 
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POP AF ,* Restore ' AF 1 

RET 



The following code clears the cassette flip-flop by 
simply outputting the value stored in (CSTATU) . 





PUSH 


HL 


,*Save 'HL* 




PUSH 


AF 


;Save 'AF 1 


CLRCFF 


CALL 


021EH 


;Clear CFF 




POP 


AF 


; Restore 'AF' 




POP 


HL 


; Restore 'HL' 



The CLRCFF routine uses the STATFF routine at 0221H to 

make the change. STATFF takes the value in (CSTATU), ANDs 
it with ' H' (to reset any bits) and ORs it with * L 1 (to set 
any bits) . It then saves the result in (CSTATU) and 
outputs the result to port FFH. This routine is used to 
change the voltage levels, turn the drives on and off, and 
turn on or off display modes. The values to load into HL 
are as follows; 



;High signal 
;Low signal 
;No signal 

;Cassette off 
;Cassette on 

? Clear CFF 

;64-char mode 
;32~char mode 



To use the routine, select the appropriate value of HL 
(STATHL) from the above list and make the CALL: 



HISIG 


LD 


HL,0FC01H 


LOSIG 


LD 


HL,0FC02H 


NOSIG 


LD 


HL,0FCG0H 


OFFC 


LD 


HL,0FB00H 


ONC 


LD 


HL,0FFO4H 


RLATCH 


LD 


HL,0FF00H 


M64 


LD 


HL,0F700H 


M32 


LD 


HL f 0FFO8H 





PUSH 


HL 


?Save 'HL' 




PUSH 


AF 


;Save 'AF' 




LD 


HL,STATHL 


;HL Command Selection 


STATFF 


CALL 


0221H 


^Change status 




POP 


AF 


; Restore 'AF' 




POP 


HL 


; Res tore 'HL' 
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Tape Reads 

The following routines are used to read from the 
cassette. Included are routines used by the read-tape ROM 

sections. 



This interfacing routine will turn the cassette drive 
on using CTON and read the leader until a sync byte (A5H) 
is found. Then, the stars are placed in the upper 
righthand corner of the screen at locations 3C3EH-3C3FH. 



CTONRL 



PUSH HL 
LD HL,0 
CALL 293H 



POP HL 



,-Save * HL' 

;Save (HL) for CTON 

;Drive 1 on, 

; read leader 

; put stars 

? Restore 'HL' 



The CRLDR routine is part of CTONRL but the entry to 
this routine is after a drive has been defined. Use the 
following linkage: 

;Save 'DE' 

;HL to DE 

?Load a return addr. 

;Save return address 

j Save old HL. 

; will be restored by 

; routine 

CRLDR JP 0293H ?Read leader for sync 

; put stars 

RETADR POP DE ; Restore 'DE 1 



PUSH 


DE 


EX 


DE,HL 


LD 


HL, RETADR 


PUSH 


HL 


PUSH 


DE 



The ROM does have a routine to put the stars in the 
corner, but if you do not use one of the above routines to 
read the leader, you must put them there yourself using: 



CSTARS 


PUSH 


AF 


;Save 'A' 




LD 


A, 1 *' 


?Star 




LD 


(3C3EH) ,A 


;Put first star 




LD 


(3C3FH) ,A 


;Put second star 




POP 


AF 
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This routine reads the data bit following a clock bit 
and shifts it into the low order end of 'A'. 

PUSH HL ;Save ! HL' 

CRBIT CALL 0241H ,-Read a bit into 'A' 

POP HL 



The linkage that follows reads a byte from the tape 
into the 'A' register. 

CRBYTE CALL 0235H ,*Read a byte 



To change the star in the corner from a blank to star 
or from a star to blank, simply: 

PUSH AF ;Save * AF* 

CSTAR CALL 022CH ;Change star 

POP AF 



Tape Writes 

The following routines write data to the tape unit. 

To turn the cassette on using CTON and write a leader, 
use the following interface: 

PUSH HL ?Save ' HL ! 

LD HL,0 ;Safe (HL) 

PUSH AF ;Save 'AF' 

CTONWL CALL 0284H ;Write leader & sync 

POP AF ; Restore ! AF' 

POP HL ; Restore ' HL ' 

If the drive has already been turned on, you can use: 

PUSH AF ;Save 'AF' 

CWLDR CALL 0287H :Write leader & sync 
POP AF ; Restore 'AF' 

To write a bit, you may use the following code: 

PUSH HL 
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PUSH 


BC 


PUSH 


DE 


PUSH 


AF 


CWBIT CALL 


01D9H 


POP 


AF 


POP 


DE 


POP 


BC 


POP 


HL 



jWrite a bit 



To write the byte stored in register 'A' to the 

cassette tape, call the CWBYT routine at 0264H. All 
registers are saved: 

CWBYT CALL 26 4H ;Write a byte to tape 



A sister routine at 026 1H (CW2BYT) simply writes the byte 
to tape twice using CWBYT. 



This completes our discussion of the individual I/O 
units of the TRS-80. The ROM disassembly of the routines 
follows in chapter 6. Additional information on I/O 
routines may be found in chapter 7 and chapter 8. 
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In this chapter, you will find a commented disassembly of the 
Radio Shack Level II ROM input and output routines. However, a few important 
points must be made about this disassembly. 

First of all, the ROM code is the property of Microsoft and is protected 
by their copyright. For this reason, it is impossible to provide a complete 
disassembly of their code without violating their rights. For this reason, the 
publisher has decided to provide the hex addresses of the instructions, the 
operators, and the extensive comments. The hex object code and the operands 
are omitted. 

If you are an owner of a TRS-80, you are able to procure the full 
disassembly by using one of many machine language disassemblers available 
commercially, or if you have purchased Volume I, you can use the BASIC language 
disassembler found in Appendix C of that volume. Space has been provided so 
that operands can be written in next to the operators to provide a commented 
listing that can be used for reference. 

Secondly, since a full interfacing guide is provided in the earlier 
chapters, it is unnecessary to refer to this listing in order to interface with 
the routines. Nevertheless, this chapter may serve as a useful tool when 
programming I/O on the TRS-80. 
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**************************************************** 
**************************************************** 

** Radio Shack Level II BASIC ROM as Commented by ** 
** Insiders Software Consultants, Inc. This is a ** 

** pseudo-disassembly which does not contain op- ** 
** codes or operands to protect the proprietary ** 
** source code of Microsoft, the original author ** 
** of the BASIC Interpreter. ** 

**************************************************** 
**************************************************** 



0000 
0001 
0002 

0005 



********** 

* CBOOT : Upon initial power-up, the execution of an illegal opcode, 

* or a JP to location 0000H, the machine will boot. 



This entails a reset of certain key RAM locations, 
a reset of I/O devices such as the printer and tape, 
and a re-entry into the BASIC interpreter with all 
pointers reset. 



********** 

CBOOT 



DI 

XOR 

JP 

JP 



;Disable interrupts during boot. 

;Reset Accumulator 

;Exit to COLDSTART routine 

;Unused in Level II 
;In some machines, CALL 5 is used 
;as a procedure request entry 
;point, similar to CP/M. In the 
;TRS-80, it is not used. 



0008 



********** 

* RST08 : This RST is used by the parser to check the syntax of the BASIC 

* program. This RST vectors to 4000H which in turn jumps to 

* location 1C96H under normal Level II operation. 
********** 

JP ;RST 8 Vectors to 1C96H IN LII 



000B 
000C 



********** 

* WHERE : This routine is used to locate the execution location in memory. 
For example, if one wanted to determine whether the current 
routine is running in high memory after a relocation, one could 
CALL WHERE and then check the contents of the HL register. 
(HL contains the address of the next instruction after 



* 

* 
* 
* 

* CALL WHERE). 

********** 

WHERE POP 
JP 



;Locate self in MEM 



000D 



DBOOT JP 



;JP Disk Bootstrap 
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0010 



0013 
0014 
0016 



0018 



001B 
001C 
001E 



********** 

* RST16.: This RST is used by the parser to process through the text 

buffer finding the next character to be processed. Returns with 

the character in the buffer pointed to by HL. Carry flag 
set on ASCII 0-9. Zero flag set on colon ( :) or binary zero. 
Skips tabs, linefeeds, and spaces. This RST vectors to 4003H 
which in turn vectors to 1D78H. 



* 
* 
* 
* 
* 
********** 

RST16 



JP 



;RST 16 Vectors to 1D78H 



0020 



********** 

* INBYT : Input a byte from a device. At this point, DE has been loaded 

* with the DCB location. BC is saved. DE is lost. B is loaded with 

* the operation type flag which is compared with the DCB to check 

* for valid I/O requests. 

********** 

INBYT PUSH ;inp ut a byte from a device 

LD ;B with DCB type (input) 

3* ;JP I/O Driver 

********** 

* RST2 4 : This RST is used to compare the values contained in the HL and 

* DE registers. (16 bit compare) If HL=DE, Zero set. If HL<DE 

* then Carry set. The ' k' reg is lost. 

* RST24 vectors to 4006H and then to 1C90H. 

********** 

RST24 JP ;R sT 24 Vectors to 1C90H IN LII 

********** 

* 0UTBYT : This routine is used to output a byte to a device specified by 

* the DCB pointed to by DE upon entry. DE is lost during 

* execution. 
********** 

OUTBYT PUSH ; Output a byte to a device 

LD ;LD B with DCB type (Output) 

JR ;JP I/O Driver 

********** 

* RST32 : T his RST is used to determine the data type of the current 

* value in FPA1 (See Volume I). 

* Flags set are as follows: M= Integer, Z=String, 

* P0=Single-precision, NC=Double~precision, 

********** 



JP 



;RST 32 Vectors to 25D9H 



0023 


CTLBYT 


PUSH 


0024 




LD 


0026 




JR 



; Output a control byte to a device, 
; (Unused in LII) 
;JP I/O Driver 
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0028 



002B 
002E 



********** 

* RST40: This RST is used under DOS to request processes and overlays to 
be loaded. If not executing under DOS, this RST may be used by 

the assembly language programmer by placing a JP at 

location 400CH. 



* 
* 

* 
********** 

JP 



RST40V 



;Jump to DOS command processor 



* KBSCAN : Scan the keyboard using the routine specified by the keyboard 
DCB at location 4015H. If a key is pressed, its ASCII value is 
returned in the 'A' register. If no key, a binary zero xs 



* returned. 
********** 

KB SCAN LD 
JR 
********** 

* RST48: This RST is used under DOS as the DEBUG breakpoint. It may be 

* re-defined by the assembly language programmer using level II 

* only by placing a JP at location 400FH 
********** 



DE is lost when calling this routine. 

;LD DCB Location 
;JP to INBYT 



0030 



JP 



;RST 48 is used as DEBUG Breakpoint 



i *CRTBYT : Displays the ASCII value in register 'A' on the video display at 
.* the curr ent cursor position as stored xn locatxons 4u20~4lUltt xn 

•* the Video DCB block. DE is lost during call. 

.********** 
0033 ' CRTBYT LD *> LD DCB Location (401DH) 

0036 jr ;jp t0 0UTBYT 

********** 

* RS T56 : This RST is used in interrupt mode 1 (IM 1) under DOS. It should 
not be re-configured. After an interrupt, execution begins at 
location 401 2H (which is a jump to a handling routine.) 
The user could place a clock interrupt handling routine at this 
location or another routine which may run off an interrupt 
generated by a non-standard peripheral or the clock in the 



0038 



* 

* 
* 

* 

* Expansion Interface if one is present. 

********** 

RST56 JP ;RSI56 — Interrupt handler 



.********** 

;* LPTBYT : Print the byte in Register 'A' on the line printer using the 

;* driver routine specified in the line printer DCB at location 

;* 4025H. DE is lost during execution. 

. ********** 
003B ' LPTBYT LD ;LD DCB Location 4025H 

003E JR ; JP t0 OUTBYT 
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0040 



********** 

*BUFFNV : Entry at this location vectors to the buffer input routine at 

* 05D9H. See comments at that location for full details. 

********** 

BUFFNV JP 



0043 
0044 
0045 



RET 
NOP 
NOP 



;Not used in Level II 
;Not used in Level II 
;Not used in Level II 



0046 



********** 

*DRIVRV: To save space, all of the above I/O operations jump to the 

* driver address contained in the DCB by way of a JR to this JP 

* Vector to the routine at 03C2H. 
********** 

DRIVRV JP 



0049 
004C 
004D 
004E 



********** 



*GETCHR: Scans the keyboard using the KBSCAN routine and waits for a key 

* to be pressed. The character is returned in Reg 'A'. DE lost 

* during call. 

********** 



GETCHR 



CALL 
OR 
RET 
JR 



;Call KBSCAN Routine 
;Set Zero flag if no char 
;Return if a key was pressed 
; Nothing hit. Try again. 



0050 
0052 
0054 
0056 
0058 
005A 
005C 
005E 



********** 

* KBTBL : Keyboard table for use with keyboard driver 

* Special characters table 
********** 



KBTBL 



DEFB 


0DH,0DH 


DEFB 


1FH,1FH 


DEFB 


01H,01H 


DEFB 


5BH,1BH 


DEFB 


0AH,1AH 


DEFB 


08H,18H 


DEFB 


09H,19H 


DEFB 


20H,20H 



;CR, Shift CR 

;CLEAR, Shift CLEAR 

;BREAK, Shift BREAK 

;Up Arrow, Shift Up Arrow (ESC) 

;Down Arrow (LF) , Shift Down Arrow 

;Backspace, CANCEL 
;Tab, 32-Char mode 
;Space, Shift Space 



0060 
0061 
006 2 
0063 
0065 



********** 



* DELAY : Delay loop. Upon entry, BC loaded with delay count. 



* 'A' and 

********** 

DELAY 



BC' registers lost. 14.66 msec per loop: 



DEC 

LD 

OR 

JR 

RET 



;DEC Delay counter 

;P/U High order byte of count 

^Determine whether BC=zero 

*,Loop until counter-0 

;Back to caller 
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0066 
006 9 
006C 
006D 
006F 
0072 



********** 

* SMI: Non-maskable Interrupt Vector 

* Control passes to this point when the RESET button 

* is pressed on the back of the CPU. 
********** 

jlMI LD ;Set dummy stack pointer 

LB ;Check if Exp. Interface present 

INC ;by getting status of floppy disk 

cp ;CP one more than 00+1 

jp ;Coldstart if Exp. Int. present 

jp ;Warm-start (Restart BASIC without 

; destroying pointers. 
********** 
* CSTLII : Cold-start for Level II BASIC 

* Routine initializes locations, L3 error vectors, 

* puts returns in disk hook locations, 

* determines memory size, then jumps into BASIC. 
********** 



0075 

0078 
007B 
007E 

0080 

0083 
0085 
0086 
0087 
0088 
008A 

008B 



008E 
0091 
0093 
0096 
0098 
0099 
009A 
009B 
009C 
009D 



CSTLII LD 



LD 
LD 
LDIR 

LD 

LD 

INC 

LD 

INC 

LD 

INC 

LD 



LD 

LD 

LD 

LD 

INC 

LD 

INC 

LD 

INC 

DJNZ 



Intialize 39 locations 

starting at 4080H 

from data starting at 18F7H 
39 locations loop 
MOVE! 

Place 3A,00,2C in locations 

preceeding I/O buffer 
Store 3A 
Move pointer 
Store 00H 
Move pointer 
Store 2CH 
Move pointer 

Place 41E8 in 40A7H 

which points to the 

beginning of the I/O buffer. 
Set return vectors for L3 Error 
28 sets of 'JP L3ERR' 

starting at 4152H 
LD 'JP' instruction 
Move pointer 

Store LSB of L3ERR entry point. 
Move pointer 

Store MSB of L3ERR entry point. 
Move pointer 
Loop until 28 sets done 
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009F 
00A1 
00A3 

00A4 
00A5 
00A6 

00A8 
OOAB 

OOAC 
OOAF 



00B2 
00B5 
00B8 
OOBB 
OOBE 
OOCO 
OOC1 
00C2 



LD 
LD 
INC 

INC 
INC 
DJNZ 

LD 
LD 

LD 
CALL 



CALL 

LD 

CALL 

CALL 

JR 

RST 

OR 

JR 



Puts 21 return statements 
every third position 
(since JP'S would be placed 
there if the calls 
are used by DOS, for example) 
Pointer to next entry 
Loop thru 21 sets 

Put a zero at CONQ 

(According to Radio Shack, this 
address is always zero). 
LD SP, Low memory stack location 
Set beginning of string area, 

Stack save area. 

LD SP with beginning of string 

area, devices Reset 
Clear screen 

Point to "MEMORY SIZE" rasg. 
Print "MEMORY SIZE" 
Print "? ", Input up to 240 chars, 
If return by <BREAK>, re-enter 
Check buffer for input 
Any non-zero character? 
If a number was input, convert. 

else calculate MEMSIZ 



4********* 

* MEMSIZ : Checks each byte in 

* to hold all values. 

* of the memory test. 

********** 



memory for the ability 

Any error causes termination 



00C4 
00C7 
00C8 
00C9 
00CA 
00CC 
00CD 
00CE 
00CF 
00D0 
00D1 
00D2 
00D4 

00D6 

00D9 
00DA 

00DD 



MEMSIZ 



LD 

INC 

LD 

OR 

JR 

LD 

LD 

CPL 

LD 

CP 

LD 

JR 

JR 

CALL 

OR 
JP 

EX 



START AT 434C+1 for mem check 
Skip to next address in RAM 
Check for address 0000H 

for over-run of counter 
JP if cycle complete 
LD current value from memory 
Save for restoration 
One's comp. 'k' to check all bits 
Store this new value 
CP stored value with correct value 
Restore original value 
If good CP, test next addr. 

Else it has found max. mem. size 

Convert value in buffer 

to 2-Byte DE value. 
Test last byte read for 00H 
If not zero, SYNTAX ERROR 

Put value into HL 
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OODE 
OODF 
OOEl 
00E2 
00E3 
00E4 
00E5 

00E7 
00E8 
OOEB 
OOEC 

OOEF 
00F2 
0OF5 
00F6 

OOF9 

OOFG 
OOFF 
0102 

0105 
0110 

0111 

01 2B 
012C 



DEC 

LD 

LD 

LD 

CP 

LD 

JR 

DEC 
LD 
RST 
JP 

LD 
LD 
ADD 
LD 

CALL 

LD 

CALL 

JP 

DMEMSZ DEFM 
NOP 

DRSL2B DEFM 
DEFB 
NOP 



Back one location 

Check ability to hold value 

Load current value into B 

LD ADDR 3 8F(poor value choice) 

CP with correct value 

Restore old value 

JP if Check fails. 

Get another MEMSIZ 
DEC to proper address 
LD Minimum mem required 
CP DE,HL 
IF RL < DE, Out of Memory Error 

LD DE,-50 to reserve string space 

LD Machine size 

Sub 50 from HL 

LD address of string area with 

MEMSIZ- 50 
Initialize work area 

(same as BCMD 'NEW') 
Pt to "RADIO SHACK LEVEL II BASIC" 
Print out msg 
Goto BASIC 



'MEMORY SIZE' 

; Ending delimiter 

'RADIO SHACK LEVEL II BASIC' 

; Ending delimiter 



********** 

* L3ERR : Level 3 error (?L3) for Disk BASIC calls 

* during Level II BASIC 



01 2D 
01 2F 



********** 

L3ERR 



LD 
JP 



;LD L3 error number (2CH) 
;Goto error print 
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0132 
0133 



0134 



0135 



0137 



0138 



013A 

013B 
013C 
013D 
013F 
0140 
0142 
0145 
0146 



5* Graphics Routines * 

j ********** 

»* POINT: Entry for BASIC command POINT, represented 

;* in a BASIC program as a C6H. 
* ********** 



POINT 



RST 
XOR 



LD 



; Entry for BCMD POINT (C6) 
;The operation to be performed 
; depends on the contents of the 
; 'A' register. When A=zero, POINT 
; Dummy command. SET enters 
; at 0135H, in the middle of 
; this instruction. 



j********** 

»* SET: Entry point for BASIC command SET, represented 

;* in a BASIC program as 83H. 
>********** 



SET 



LD 



LD 



Entry for BCMD SET (83). 
As above, the determination 
between cmds POINT, SET, and 
RESET is done thru the 'A' reg. 

The SET flag is bit 7 (80H) 

NOTE: When entering from POINT, 
this command is invisible. 
The opcode is part of LD BC at 
location 0134H 

Hide entry point to RESET. 



********** 

* iESET: Entry point for BASIC command RESET, represented 

* in a BASIC program as 82H. 

********** 

RESET 



28 



LD 



PUSH 

RST 

DEFB 

CALL 

DEC 

CP 

JP 

PUSH 

RST 



'( 



;Entry for BCMD RESET (82) 

;Also NOTE that this instruction is 

; invisible when entering 

; from the above code. 

;Save the 'A' reg. that denotes the 

; operation to be performed. 

;Find X coord, and return in 'A'. 

; after a syntax check for '(' 

DEC parser pointer 

X coord, must be less than 128! 

If not <128, Illegal Function Call 

Save X coord. 

Find Y coord, and ret in 'A' 
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0147 2C 
0148 
014B 
014D 



DEFB 
CALL 
CP 
JP 



; Syntax check for comma. 

;Y Coord, must be < 48 

;If not <48, Illegal Function Call 



0150 
0152 
0153 
0155 
0157 

0159 
01 5A 
015B 
015C 
015D 
015F 
0160 

0161 
0162 
0163 
0164 
0165 
0167 
0168 
0169 
016A 
016B 
016C 
016D 
016E 
0170 
0171 
0172 
0174 
0175 
0176 
0177 

017A 



********** 

* The next section divides the Y coord, by three (3) to get 

* the row number <stored in 'D'>, and the remainder <in 'C> 

* Remember, an integer division (with remainder) is really just 

* a series of subtractions, until the value goes below zero and then 

* one more increment to bring it positive again. 

* In this case, the number to be divided is in the accumulator, and 

* and the quotient is being calculated in reg D. 
********** 



LD 

INC 

SUB 

JR 

ADD 

LD 

FOP 

ADD 

LD 

LD 

LD 

RRA 

LD 

LD 

RRA 

LD 

DJNZ 

LD 

ADC 

INC 

LD 

XOR 

SCF 

ADC 

DJNZ 

LD 

LD 

OR 

LD 

LD 

OR 

JP 

LD 



Prepare D reg. 
Increment loop 
Subtract 3 from the accum. 
Has it gone below zero? 
Restore to positive value 

(Get remainder) 
Store remainder in 'C' 
Restore X coord, into 'A' 
Multiply by two (2) 
Store in 'E' 
This section determines the LSB 

of the position on the screen, 

the value of which is placed in 

Register 'E'. 



This section uses the remainder to 
to determine the MSB of the 
byte's location on the screen. 

Value is then placed in 'D' 
The location is now in DE. 



;LD A, character to be manipulated 

JP if bit 7 set 

<A graphics character> 
Was not graphic. 

Set b7. Reset other bits 
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017C 


LD 


017D 


POP 


017E 


OR 


017F 


LD 


0180 


JR 


0182 


LD 


0183 


JP 


0186 


LD 


0187 


GPL 


0188 


LD 


0189 


LD 


018A 


AND 


018B 


LD 


018C 


RST 


018D 29 DEFB 


018E 


RET 


018F 


OR 


0190 


JR 


0192 


AND 


0193 


ADD 


0195 


SBC 


0196 


PUSH 


0197 


CALL 


01 9A 


POP 


019B 


JR 




********** 




* INKEY: Entrv point J 




* in the BASIC 




********** 


019D 


INKEY RST 


019E 


PUSH 


019F 


LD 


01A2 


OR 


01 A3 


JR 


01A5 


CALL 


01A8 


OR 


01A9 


JR 


01AB 


PUSH 


01AC 


XOR 


01AD 


LD 


01B0 


INC 


01B1 


CALL 


01B4 


POP 


01B5 


LD 


01B8 


LD 



')' 



POP type of operation 
from PUSH at 013AH 

Restore byte 

JP if BCMD 'POINT' 

Store byte on screen 

JP if BCMD 'SET' 

Load bit to reset 

All bits = 1 except bit to reset 

Get character again 
Reset bit 
Store new value 
Clean-up 

Syntax chk: closing parenthesis 



SET bit 

Finish up. 

Check bit for ON/ OFF 

If bit ON, RET = -1 (80H). 
Else RET=0 

Save HL from destruction 
Routine determines sign of value 
Restore HL 



; Entry for BCMD INKEY$ (C9) 
;Save parser pointer 
;LD last key hit 

;Skip scan if already have key 
;Scan keyboard for depressed key 

;Nothing depressed. 

; Skip next section. 

;Save char, in 'A' 

;Zero 'A' 

;Place in last key hit location 

; so that this key is not re-read 

;40D3«01: 40D4-5 = Dest. for string 
^Restore character 
;Load string destination 
;Put character 
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01B9 



01BC 
01BF 
01C2 
01C4 
01C7 
01C8 



JP 



LD 

LD 

LD 

LD 

POP 

RET 



;Back to caller after character 
; placed in FPA1 (Vol I) 

;LD pointer to "READY" message 
; Place address in FPA1 
; Define as a string 
;LD TYPFLG for "STRING" 



01C9 
01CB 
01CE 
01D0 



********** 

* GLS : Entry point used to clear the screen. 

* 'A' is lost during execution. 

********** 



CLS 



LD 

GALL 

LD 

JP 



; Entry BCMD CLS (84) 
;Write Home-cursor to screen 
;LD Clear- to-end char. 
; Write to screen and RET. 



01D3 



01D5 
01D8 



********** 

* RANDOM : Entry point for BASIC command RANDOM, represented 

* in a BASIC program as 86H. 



********** 

RANDOM 



LD 



LD 

RET 



; Entry for BCMD RANDOM (86) 

;LD A,Memory Refresh Register 'R' 
; to get a truly "random" number, 
; Store in RNDBYT as part of seed 
;Back to caller 



**************************************** 
;* Cassette I/O Routines * 

• ******************************-k*-k****** 





• ********** 






;* CWBIT: 


Write 


bit to cassette 




. ^x******** 




01D9 




CWBIT 


LD 


01DC 






CALL 


01DF 






LD 


01E1 






DJNZ 


01E3 






LD 


01E6 






CALL 


01E9 






LD 


01EB 






DJNZ 


01ED 






LD 


01F0 






CALL 


01F3 






LD 


01F5 






DJNZ 


01F7 






RET 



;Write bit to cassette 
;Set bit of the 
; cassette flip flop (CFF) 
; Reset bit 1 

;Timing delay 



;Set bit 1 of CFF : Reset bit 
; Timing delay 



;Reset bits & 1 of CFF 
; Timing delay 
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01F8 
01F9 
01FC 



********** 

* CTOFF : Turn cassette motor off 
********** 



CTOFF 



PUSH 
LD 

JR 



;Cassette off 
;Clear bit 2 of CFF 



********** 

* GTON : Turn cassette motor on 

********** 



01FE 
01FF 
0201 
0203 
0205 
0208 

0209 2C 

020A 

020B 

020C 

020E 

0211 



CTON LD 
SUB 
LD 
JR 
CALL 
RST 

DEFM 

LD 

AND 

ADD 

JP 

DEC 



LD next char (in program usually) 
Test for "#" as in "PRINT #-X" 
Default to drive 00 
JP if next char is not "#" 
Determine the drive number 

from the PRINT # or INPUT # 

statements 
Syntax check: comma required 

Check to see Cassette drive number 

Is it over 2 ? 
Yes, Illegal Function Call 

(No such drive) . 



0212 

0215 

0216 
0219 

021C 
021D 



021E 



********** 

* DEFDRV : Define cassette drive from Register 'A'. 
********** 

DEFDRV LD 



PUSH 
LD 

CALL 
POP 

RET 

********** 

* CLRCFF : Clear Cassette Flip-flop 
********** 

CLRCFF LD 



Define drive by output ting 

to cassette select latch. 
Save HL Pointer. 

;Set bit 2 of CFF 

;Restore HL 
;Drive Selected 



;Clear CFF 



********** 

*STATFF : Change status of cassette flip-flop from HL 

********** 

0221 STATFF LD ;Change status of CFF 

0224 AND ;Manipulate old value in CFF 

0225 OR 

0226 OUT ;Output to port to change status 
0228 LD ; Store new value 

022B RET ;Back to caller 
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********** 

* CSTAR : Change star in corner of screen during cassette I/O 



********** 



022C 

022F 
0231 
0234 



CSTAR LD 

XOR 

LD 

RET 



Change star in corner 
at address 3C3FH 

From <SPACE> to "*" or.. 
from "*" to <SPACE> 

Completed. Return 



********** 
: *CKBYTE : Read single byte from cassette 





> ******** 

9 


** 




0235 




CRBYTE 


PUSH 


0236 






PUSH 


0237 






LD 


0239 






CALL 


023C 






DJNZ 


023E 






POP 


023F 






POP 


0240 






RET 




; ********** 






;* CRBIT: 


Read a 


singl 




• *** ******* 




0241 




CRBIT 


PUSH 


0242 






PUSH 


0243 






IN 


0245 






RLA 


0246 






JR 


0248 






LD 


024A 






DJNZ 


024C 






CALL 


024F 






LD 


0251 






DJNZ 


0253 






IN 


0255 






LD 


0256 






POP 


0257 






RL 


0259 






RLA 


025A 






PUSH 


025B 






CALL 


025E 






POP 


0260 






RET 



;Read byte from cassette 

;Read 8 bits 

;Read bit from cassette 

;If not 8 bits, read another 



;Byte read into 'A', RET 

ssette 

;Read bit from cassette 

; Search for timing bit 

;Not found. Try again 
;Timing delay 

; Clear CFF 
^Timing delay 

;Input data bit from cassette port 
; into high order bit 

;Restore "A" 

;Rotate high order bit into carry 

;Rotate bit into 'A' in low order 
;Save new value 
;Clear CFF 
;Restore value 



0261 



********** 

* CW2BYT : Write byte to cassette twice 

********** 

CW2BYT CALL 



jWrite byte to cassette TWICE! 
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********** 

* CWBYT : Write byte to cassette 

********** 



0264 
0265 
0266 
0267 
0268 
026A 
026B 
026E 
026F 
0270 

0271 

0273 
0276 
0277 
0279 
027A 
027B 
027C 
027D 



CWBYT 



PUSH 

PUSH 

PUSH 

PUSH 

LD 

LD 

CALL 

LD 

RLC 

LD 

JR 

CALL 

DEC 

JR 

POP 

POP 

POP 

POP 

RET 



;Write byte to cassette 
;First save registers used 



;Eight bits per byte 

;Save 'A' contents 

;Write timing bit 

^Restore character to write 

;Rotate high order bit into CARRY 

;Keep this rotated value 

; for next loop 

;If no bit, then delay 

;Write data bit 

;DEC bit counter 

;Go again if not done 

;Restore registers 



027E 
0280 
0282 



LD 

DJNZ 

JR 



;Bit=0. Do NOT write data bit 

;Delay 

;Get another bit 



0284 
0287 
0289 
028A 
028D 
028F 
0291 



********** 

* CTONWL : Cassette ON, Write leader 

********** 



CTONWL 
CWLDR 



CALL 

LD 

XOR 

CALL 

DJNZ 

LD 

JR 



^Cassette on, write leader 
;Write leader of 255 bytes of 00H 
;Clear 'A' to 00 

;Write byte to cassette 
;Loop through 255 bytes 
;LD A, sync, byte (A5H) 
;Write sync, byte after leader 



0293 
0296 
0297 



********** 

*C.TONRL : Cassette on, read leader routine 

********** 



CTONRL 



CALL 
PUSH 
XOR 



;Cassette on 
;Save HL pointer 
; Drive 
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0298 



029B 



029D 



* CRLDR : Read leader searching for sync, byte 
********** 



CRLDR CALL 



CP 



JR 



Read leader searching 
for sync, byte 

(A5 is sync byte), by reading 
a byte and comparing 
it to A5H 



********** 

* CSTARS : Cassette stars placement in corner of screen 

********** 

029F CSTARS LD ;LD A, '*' 

;Put two stars in corner of screen 

02A1 LD ;Pnt first star at 3C3EH 

02A4 LD ;Rnt second star at 3C3FH 

02A7 POP ;Restore HL 
02A8 RET 



02A9 

02AC 
02AF 

02B2 
02B5 
02B8 
02BB 
02BD 
O2C0 

02C3 
02C6 
02C7 
02CA 
02CC 
02CE 



********** 

* SYSTEM : TRS-80 System Tape Utility 

Reads "SYSTEM" format tapes, and allows 
transfer to a RAM address either specified by the 
program tape or by a decimal number entered by the 
user after a slash E/3 



* 
* 

* 
* 

********** 



CALL 

LD 
GALL 

SYSTEM CALL 
LD 

CALL 
LD 

GALL 
CALL 

JP 

RST 

JP 

CP 

JR 

CALL 



Get transfer address for SYSTEM 

from tape. 
Load into transfer addr. location 
Cassette off 

; System entry point (BCMD AE) 

Output CR to current device 
LD A,'*' 

Output '*' (Display user prompt) 
Input buffer of 240 characters 

after "? " prompt 
If ended on <BREAK> GOTO BASIC 
Test buffer 
If nothing there, SYNTAX ERROR 

CP 7' 

JP if match to "SYSGO" 

Cassette on, find sync byte, 

put stars in corner 
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02D1 
02D4 
02D6 
02D8 
02DA 
02DB 
02DC 
02DE 
02E1 

02E2 
02E4 



CALL 

CP 

JR 

LD 

LD 

OR 

JR 

CALL 

CP 

JR 
INC 



;Read byte from cassette 
;Search for byte preceding title 

;Load max number of Chars, in title 
;LD first char, in title into r k' 
; Check for end-of-buf f er 
;JP if End-of -Title found 
;Read byte from cassette 
;CP byte from cassette 
; with next byte in title 
;Get another byte if no match 
;INC buffer pointer 



iKote: In some machines, the INC HL comes before 

the JP NZ. If this is the case in a machine, 
whenever the bytes do not match, SYSTEM will never 
find the correct title, since the buffer pointer 
is never reset! 



02E5 
02E7 

02EA 
02ED 



02EF 
02F1 

02F3 



DJNZ 
CALL 

CALL 
CP 



JR 
CP 



JR 



Go back and get another char. 

Change star 

Read byte from cassette 

CP BYTE,78H which is the byte 

preceeding the transfer addr. 

at the end of the tape. 
JP if match to READ ADDR, CIOFF 
CP BYTE,3CH which is the byte 

preceeding the load address 
JP If no match, 



;Note; Each separate record on a system tape must have 
a load address preceeding it. 

At this point, the record separator has been located. 
The number of bytes in the record, the load address, 
the data record, and the checksum (at the end) will be 
read. 
The load address is INCLUDED in the checksum! 



02F5 
02F8 
02F9 
02FC 
02FD 
02FE 
0301 
0302 
0303 
0304 
0305 



CALL 

LD 

CALL 

ADD 

LD 

CALL 

LD 

INC 

ADD 

LD 

DJNZ 



;Read number of bytes in record 

; Store in B 

;Get load address 

;Add load address to checksum, too, 

;Save checksum in 'C. 

;Read data byte 

;Save at proper address 

;INC load address 

;Add previous checksum 

;Save new checksum 

;Get another byte in record 
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0307 



CALL 



03 OA 








CP 


030B 








JR 


03 OD 








LD 


03 OF 








LD 


0312 








JR 


0314 




GETADR 


CALL 


0317 








LD 


0318 








CALL 


031B 








LD 


031C 








RET 


03 ID 








EX 


03 IE 








LD 


0321 








EX 


0322 








RST 


0323 








CALL 


0326 








JR 


0328 








EX 


0329 








JP 




• ********** 








;*DSPCHR: 


Display 


the 



Get the recorded checksum 

at the end~of-rec on tape 
CP with computed checksum 
If OK, get another record 
Checksum error 

Put 'C in corner replacing '*' 
Get another record 
Get an address from tape 
LD L, LSB 
Get next byte 
LD H, MSB 
Done 
Goto address, either from 

/<Decimal #> 

or from address from tape 
LD system transfer address 
Put in DE 
Check input buffer 
If a number present, convert to 

a two-byte DE value 
Back to system if no convert 
Switch address to HL for JP 
GO! 1 1 



e in 'A' on the current device. 

* The current device is determined by the flag at 409CH. 

* If the flag has bit 7 set, output to the cassette. 

* If other than zero (OOH), send to line printer. 

* If zero, send to the video monitor. 

* DE not destroyed. 



;Save byte to output in 'C 

;Disk hook to 41C1H 

;LD I/O flag 

;Set flags depending on value 

;Restore output character 

;Restore BC 

;If bit 7 set, output to cassette 

; Output to printer if non-zero 

;0utput character to monitor 

Call POSIND 

(line position indicator) 
Save position in CRTPOS 
Restore output byte 



; ********** 


03 2A 


DSPCHR PUSH 


03 2B 


LD 


032C 


CALL 


03 2F 


LD 


0332 


OR 


0333 


LD 


0334 


POP 


0335 


JP 


0338 


JR 


033A 


PUSH 


033B 


CALL 


033E 


PUSH 


033F 


CALL 


0342 


LD 


0345 


POP 


0346 


POP 


0347 


RET 
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0348 

034B 

034D 
0350 
0352 
0353 

0355 
0357 



0358 
035B 
035C 

03 5F 
0360 



********** 

* P0SIND : Determines the cursor position on the screen 

* taking into consideration 32-char mode. 
********** 



LD 

AND 

LD 

JR 

RRCA 

AND 

AND 

RET 



Check bit 3 of cassette status 
byte for 32-char mode 

LD A, Cursor position (OLD) 

JP if double width 

Divide by two 

Make sure value < 32 

Make sure value < 64 

Completed 



. ********** 

; *KBDSCN : Keyboard scan, saving DE register pair. 

;* Scans the keyboard for input using the 

;* routine starting at 2BH, but does not destroy DE. 



■ ********** 

KBDSCN 



CALL 
PUSH 
CALL 

POP 
RET 



;Disk hook to 41C4H 

;Save DE 

;Scan keyboard. 

; Return char, in 'A' 

;Restore DE 



0361 
0362 
0365 



0368 
036B 
036C 
036F 
0371 
0374 
0375 

0376 

0378 
0379 
037B 



********** 

* INCHRS : Inputs up to 240 characters using the BUFFIN 

* Routine at 05D9H. 

* Exit: HL points to beginning of buffer-1 

* BC Saved, 'A' zero if no <BREAK> 

* Carry if <BREAK>, end of buffer has 00H instead of 0DH 



********** 

INCHRS 



XOR 
LD 

LD 



CALL 

PUSH 

LD 

LD 

CALL 

PUSH 

LD 

LD 
ADD 
LD 
LD 



;Clear 'A' for next two steps 

;Zero IKKEYS byte 

;LD current line position on video 

; with zero (00H), even though it 

; might be in another position. 

;Disk hook to 41AFH 

;Save BC 

;LD HL, Beginning of input buffer 

;Set up for input of 240 chars. 

;Call buffer-input routine 

;Save flags 

;Add number of chars, to beginning 

; of buffer 

;Zero MSB for ADD 

;Point HL to end of buffer 

;Put a zero, replacing CR 

;Point HL to beginning of buffer 
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037E 
037F 
0380 
0381 
0382 
0383 



0384 
0387 
0388 
0389 



03 8B 
03 8C 

03 8F 



POP 
POP 
DEC 
RET 
XOR 
RET 



;Restore flags to check for <BREAK> 

;Point HL to beginning of buffer~l 
; Return if BUFFIN ended on <BREAK> 
;Clear 'A' 



********** 

* GTDCHR : Scan keyboard using KBDSCN at 0358H 

*" and wait for input. DE not destroyed 

********** 

GTDCHR CALL ;Scan keyboard, saving DE 

OR ; Check for input (NZ) 

RET ;Return if character present 

JR ;Scan again 

********** 

* RSTDEV : Resets current device to video monitor. 

* Checks line printer and forces CR if in middle of line. 

********** 

RSTDEV 



XOR 
LD 

LD 



0392 






OR 


0393 






RET 


0394 






LD 


0396 






PUSH 


0397 






CALL 


03 9A 






POP 


039B 






RET 




********** 






*LPDCHR: 


Output byte 




* 


Registers sa 1 




********** 




039C 




LPDCHR 


PUSH 


039D 






PUSH 


039E 






PUSH 


03 9F 






LD 


03A0 






LD 


03A2 






CP 


03A4 






JR 


03A6 






CP 


03A8 






JR 


03AA 






LD 


03AC 






LD 


03AD 






CP 


03AF 






JR 


03B1 






LD 


03B4 






INC 



Clear ' k' 

Set current device 

to video display 
Check for characters in 

line printer buffer 

;Nothing there. No need to finish 
;Force a CR 

;Save DE 

; Output CR to printer 

; (clears printer buffer) 

;Restore DE 



' k' to line printer 



;Save character to print 
;Save registers 

;Save byte to print 

;Initialize line position 

; at zero (00H) 

;CP char., form feed 

;JP if form feed 

;CP char., linefeed 

;JP if not linefeed 

; Change LF to CR 

; Store in 'C 

;CP char., CR 

;JP if CR 

;LD A, Current line Position 

;INC line position 
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03B5 
03 B6 
03B7 
03BA 
03BB 
03BE 
03BF 
03C0 
03C1 



03C2 
03G3 
03C5 
03C6 
03C8 
03C9 
Q3CC 
03CD 
03CE 
03 CF 
03D0 
03D1 



03 D4 

03D6 
03D9 
03DC 
03DD 

03DE 
03E0 
03E1 
03E2 



j Store in 'E* 

;Store current line position in 'A' 
; then store it in LPTPOS 
;Restore char, to print from 'C 
;0utput character to printer 
;Restore registers 



LD 

LD 

LD 

LD 

CALL 

POP 

POP 

POP 

RET 
********** 

* DR1VER : I/O Driver, using the Device Control Block (DCB) 

Entry; LD DE, DCB location 

LD A, Character 

LD B, type of operation 

BC pushed 
Exit: Branch to driver address at DCB+l,DCB+2 

Returns to driver to restore registers 



********** 

DRIVER 



DRVRET 



PUSH 

PUSH 

PUSH 

POP 

PUSH 

LD 

PUSH 

LD 

LD 

AND 

CP 

JP 



CP 

LD 
LD 
JP 
POP 

POP 
POP 
POP 
RET 



;Save registers 
;LD IX,DE 



Set up return address 

Push address 

Save character to print 

LD DCB type 

AND with type of operation 

CP with type of operation 

JP to "Driver Call Illogical" 

if not the same. 

(EX: Input from a CRT invalid) 
CP with type of operation 

denoting output 
LD LSB of driver address 
LD MSB of driver address 
GOTO driver for device 
After return from driver, 

restore registers 



********** 

* KEY IN : Scans the keyboard, searching for a newly 

* depressed key. The result of the scan 

* is returned in resister "A". This is the 

* routine called by the DRIVER, as specified 

* the DCB. 
********** 



6-21 



Rom Disassembly: I/O 



03 E3 



03E6 



03E9 
03EB 
03 EG 
03 ED 
03 EE 

03EF 

03F0 
03F2 
03F3 
03F4 
03F6 

03F9 
03 FA 
03FB 
03FC 
03FD 
03FE 
03FF 
0400 



KEYIN LD 



LD 



LD 

LD 

LD 

XOR 

LD 

AND 

JR 

INC 

INC 

RLC 

JP 

RET 

LD 

LD 

RLC 

RLC 

RLC 

LD 

LD 



LD Keyboard image start. 

The keyboard image table 

contains the value of the last 

scan of the keyboard for each of 

the seven locations 
LD the start of the keyboard 

BC now contains the first 

address of the locations 

to be scanned 
Zero key counter 

Load first character from keyboard 
Save result 
XOR with old value 
Store this new value in 

keyboard image 
Check to see if the key 

was pressed before 
JP if new key depressed 
INC key counter 
INC keyboard image location. 
GOTO next keyboard position 
IF not 7 locations scanned, 

go again 
No key was found 
Save the "LIT" bit 
Determine 8 * R0W# 
*2 
*4 
*8 
Save 8 * ROW# 



********** 

* The next section adds to 8 * R0W# the column number 

* (i.e., if bit 3 is on, then the key pressed was in the 

* 3rd column, so three (3) is added to register 'D' . 

* Remember, bit denotes column 0.) 
********** 



0402 

0403 
0404 
0406 
0407 
0409 
040B 
040E 
040F 
0410 



LD 

AND 

JR 

INC 

RLC 

JR 

LD 

LD 

LD 

ADD 



LD C (This value will have only 

one bit on.) 
Check if the bits match up 
JP if bits match 
INC value 

Shift comparison bit 
Test next bit 
Test for <SHIFT> 
Put value of <SHIFT> in 'B' 
Load the semi- converted character 
If alphabetic, convert to 

correct value 
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0412 
0414 
0416 
0418 
041A 
041C 
041D 
0420 
0422 
0424 
0425 
0427 
0429 
042B 
042D 
04 2F 

0431 

0433 
0435 
0437 
0439 
043 B 
043D 
043 E 
0440 
0442 

0443 

0446 
0447 
0449 
044A 
044B 

044C 
044F 
0452 
0453 
0455 
0456 
0457 



CP 

JR 

RRC 

JR 

ADD 

LD 

LD 

AND 

JR 

LD 

SUB 

JR 

SUB 

JR 

ADD 

CP 

JR 

XOR 

RRC 

JR 

XOR 

JR 

RLC 

RRC 

JR 

INC 

LD 

LD 

LD 

ADD 

LD 

LD 

LD 

CALL 

LD 

CP 

RET 

RST 

RET 



;JP if non-alphabetic 

;Test for <SHIFT> 

;JP if no <SHIFT> 

;Convert to lowercase 

;Save value 

; Check for down arrow depressed 

; (Shift-downarrow - Control) 

;Jump if not a control character 

;Restore char. 

;Convert to control code 

;Skip next section 

;SUB 70H for non-alphabetic 

;JP if a special character 

; Convert to Numeric /Symbol 

^Manipulate value to get 

; proper code 



Check for <SHIFT> 

JP if NO <SHIFT> 

Adjust for <SHIFT> 

DONE 

Table look-up of special chars. 

Check <SRIFT> 

JP if no <SHIFT> 

Shist chars, in table are located 

one location after un-shifted 
LD HL, Beginning 

of special char. Table 
Find location of char, in table 



LD char, from table 

Scan complete. 

Save char, for delay 
Delay loop 
Delay 

Restore character 
Check for <BREAK> 
NO <BREAK> 

BREAKS RST 40 (Debug) 
Back to caller 
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*************************************** 

* Video Display Driver * 

* Entry: IX = DCB location * 

* 'C = Character * 

* to display * 

*************************************** 



0458 
04 5B 
045E 
0460 
0463 
0464 
0466 

0467 

046 8 
046A 

046D 
046F 

0471 
0473 
0475 
0477 

047 9 
047B 
047D 
0480 
0481 
0483 
0485 
0486 
0487 
04 8A 
04 8B 
048D 
0490 
0492 
0495 
0498 
0499 



04 9A 
049D 
049E 
04 9F 

04A0 



VIDEO 



LD 
LD 
JR 
LD 
OR 
JR 
LD 

LD 
CP 
JP 

CP 
JR 

CP 

JR 

SUB 

CP 

JR 

SUB 

CALL 

LD 

AND 

OR 

LD 

LD 

LD 

OR 

JR 

LD 

LD 

LD 

LD 

LD 

RET 



LD 
OR 
RET 
LD 

RET 



;LD HL, Cursor position 

Jump if this is input request 
LD A, character at cursor 
Anything there? 
JP if nothing at cursor 
Restore character at cursor 

on display 
Restore character to print 
CP <SPACE> 
JP if a control code 

(Special Character Routines) 

;JP if a graphic 

; or space compression code 

;JP if not alphabetic 



;JP if uppercase 

;Convert to uppercase 

;Write character 

;Detennine MSB of cursor location 



;Save character at cursor position 

;LD A, character at cursor 

;Anything there? 

;JP if nothing there 

;Save character at cursor 

;Write cursor 

;Save new cursor position 

Restore character to print 
Back to caller 

(Usually the DRIVER) 

;LD A, Character at cursor 

Return if something there 
LD A, Character on screen 
at cursor position 
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04A1 

04A2 
04A4 
04A5 



LD 

AND 

LD 

RET 



; Return cursor position 
; to beginning of line 



04A6 
04A8 
04AA 
04AC 
04AE 
04AF 
04B1 
04B4 
04B6 

04B8 
04B9 
04BC 



CP 

JR 

SUB 

JR 

LD 

LD 

CALL 

DJNZ 

JR 

LD 
LD 
RET 



;JP if a graphic character 
; Convert to 00-63 spaces 
;XF 00, already finished 
;Set up loop count 
;Will be sending <SPACE>'s 
;0utput <SPACE> 
;Loop if not finished 
;Done sending <SPACE>'s 

;Turn cursor on 



04 BD 
04BE 
04CO 

04C3 

04C6 
04C8 
04CB 

04CD 

04CE 
04 CF 
04D2 
04D4 
04D6 
04D7 
04D9 
04DA 
04DD 
04DF 
04E2 
04E3 
04E5 
04 E6 

04E7 
04EA 
04EB 



XOR 

JR 

LD 

LD 

AND 

LD 

OUT 

RET 

DEC 

LD 

AND 

JR 

DEC 

LD 

RET 

LD 

AND 

CALL 

LD 

AND 

DEC 

RET 

LD 

ADD 

RET 



;Turn cursor off 

Home cursor to first position 

on screen 
Load cassette status byte 

for 32-char. mode 
32-Char off J 

Restore cassette status byte 
Output lower 4-bits 

(turn off 32-char.) 



;Backspace and erase previous char. 
; Check for 32-char mode 

;JP if 64-char mode 

; Backspace twice for 32-char 

;Put a <SPACE> 

; Backspace cursor 

;Check for 32-char mode 

; Backspace twice when in 32-char 

;Set flags for beginning of line 

;Backspace cursor 

;Return if not at beginning of line 

; Downward linefeed 

;Move cursor to next line 
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04EC 
04ED 
04EE 
04F0 

04F1 

04F4 
04F5 

04F6 
04F9 
04FB 
04FE 
0500 

0501 
0502 
0504 
0505 

0506 
0509 
050A 
050G 
050E 
0510 
0511 
0513 
0515 
0517 
0519 
051B 
051D 
051F 
0521 
0523 
0525 
0527 
0529 
052B 
052D 
052F 
0531 
0533 
0535 
0538 
053 A 
053C 
053E 
0540 



INC 
LD 
AND 
RET 

LD 

ADD 

RET 

LD 
OR 
LD 

OUT 
INC 

LD 
AND 
LD 
RET 

LD 

PUSH 

CP 

JR 

CP 

RET 

CP 

JR 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JP 

CP 

JR 

CP 

JR 

RET 



;Advance cursor 

; Check for beginning of line 
; Return if not 

;Upward linefeed (LD -40H) 

; Subtract one line from current pos 



;Set 32-char. mode 

;Set 32-char bit 

;Store in cassette status byte 

;Turn on 32-char. mdoe 

;Correct cursor position 

; for 32-char. mode. 



;JP from above for control chars. 

;Set up return address (0480H) 

; BACKSPACE >? 

; BACKSPACE >! 

;<LINEFEED>? 

;Ret if value < 0AH 

;Check for linefeed. 

;JP <LINEFEED CHARACTER> 

;JP if <CURSOR 0N> 

;JP if <CURSOR OFF> 

;JP if <32-CHAR MODE> 

;JP if <BACKSPACE> 

;JP if <ADVANCE CURSOR> 

;JP if <DOWN LINEFEED > 

JP if <UP LINEFEED> 

JP if <H0ME CURS OR > 

JP if <CURSOR - BEGINNING OF LINE> 

;JP if <ERASE TO END-0F-LINE> 

;JP if <CLEAR END-OF-SCREEN> 
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0541 
0542 
0543 
0546 
0548 
054A 
054B 
054C 
054E 
054F 
0552 
0553 
0554 

0557 

05 5A 
055B 
055E 
0560 
0561 
0562 
0564 
0565 
0567 
0568 
0569 

056G 

056D 
056E 
0570 
0572 
0573 
0574 
0575 
0576 
0578 
0579 
057A 



LD 

INC 

LD 

AND 

JR 

INC 

LD 

CP 

RET 

LD 

ADD 

PUSH 

LD 

LD 

PUSH 

LD 

LDIR 

POP 

EX 

JR 

LD 

AND 

LD 

PUSH 

LD 

ADD 

LD 

CP 

JR 

POP 

PUSH 

LD 

LD 

OR 

LD 

INC 

JR 



Write character onto screen 

INC pointer 

Check for 32~char mode 

JP if 64-CHAR 

INC again for double width 
LD MSB of cursor position 
CP with highest allowable+1 
Return if not off screen 
DEC cursor position one line 

By adding -64 to cursor position 
SAVE cursor position 
Scroll screen 

(LD DE, First char, loc.) 
LD HL, First character location 

in second line 
SAVE BC 

Scroll full page 
Move characters! 

LD HL, Beginning of last line 
GOTO CLEAR-TO- END -OF-LINE 
Entry for <CR>'S 
GOTO Beg inning-of -line 

Save pointer 
LD DE, 64 

to get pointer to next line 
Add one line to cursor position 

Over end? 

JP if over end~of-screen 

POP Position 

Erase- to-end-of -line 

Set pointers 



;Clear to end of line 



057C 
057D 
0580 
0582 
0583 
0584 
0585 
0587 
0588 
0589 



PUSH 

LD 

LD 

INC 

LD 

CP 

JR 

LD 

CP 

JR 



;Clear to end-of-screen 
;Clear line to blanks 
;LD Cursor positonN, <SPACE> 
;INC pointer 



;JP if not done 



;JP if not done 
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058B 
058G 



POP 
RET 



;Pop pointer 



*************************************** 



Line Printer Driver 
Entry: IX » DCB Location 
"C" - Character 

to be printed 



*************************************** 



058D 
058E 
058F 
0591 
0593 
0595 
0597 
0599 
059A 
059D 
059F 
05A2 
05A5 
05A6 
05A9 
05AB 
05AD 
05B0 
05B2 
05B4 
05B5 
05B8 
05BA 
05BB 
05BE 
05C0 
05G1 
05C4 
05C7 
05CA 
05CB 
05CC 
05D0 



LPTDRV 



LD 

OR 

JR 

CP 

JR 

CP 

JR 

XOR 

OR 

JR 

LD 

SUB 

LD 

CALL 

JR 

LD 

LD 

DJNZ 

JR 

PUSH 

CALL 

JR 

POP 

LD 

CP 

RET 

INC 

LD 

CP 

LD 

RET 

LD 

RET 



*********** 

; *P STATU : Check status of printer 

;********** 

05D1 P STATU LD 

05D4 AND 

05D6 CP 

05D8 RET 



Restore char, to be printed from C 

Skip nulls. Returns status 

Return status if NULL 

CP VT (Type of linefeed) 

JP if match 

CP Formfeed 

JP if no match 

Clear 'A' 

See if lines/page is set 

JP if not set 

LD number of lines /page 

Subtract value in page counter 

Store in 'B' (count) 

Check if printer is ready 

Loop if not 

LD A, linefeed 

Output linefeed to printer 

Output "B" linefeeds to printer 

Set line counter to zero, RET 

Output character to printer 

Printer ready? 

JP if busy. 

Restore character to print 

Output character to printer 

Is it a <CR>? 

Return if not a <CR> 

INC line counter 

Load line counter 

Beyond end of paper? 

Restore printed character 

Return if not to end 

Zero line counter 



;Check status of printer 
;If ready, Z Flag set 
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********** 

*BUFFIN : Buffer input routine 

* Inputs a maximum of "B" characters into a buffer 

* pointed to by HL on entry. 

* A RETURN is executed either after an <ENTER> 

* or after <BREAK>. If by a <BREAK> 3 the carry is set. 
* 

* During execution: 

* DE lost. HL points to buffer. BC used for number of chars. 

* 'k' stores chars. 



n: 





* 


Upon 


completio 




-k 


HL 


points to 




■A. 


Car 


ry 


flag se 




* 


'B' 


holds the 




**" 


******** 






05D9 




BUFFIN 


PUSH 


05DA 








LD 


05DC 








CALL 


05DF 








LD 


05E0 








CALL 


05E3 








CP 


05E5 








JR 


05E7 








CP 


05E9 








JP 


05EC 








CP 


05EE 








JR 


05F0 








CP 


05F2 








JR 


05F4 








LD 


05F7 








PUSH 


05F8 








CP 


05FA 








JR 


05FC 








CP 


05FE 








JR 


0600 








CP 


0602 








JR 


0604 








CP 


0606 








JR 


0608 








CP 


060A 








RET 


060B 








POP 


060C 








LD 


060D 








LD 



the beginning of buffer, 
t if ended with <BREAK>, 
number of characters in buffer 



060E 



OR 



Save buffer pointer for return 
Cursor on for input 
Output cursor on character 
LD 'C' with number of chars. 

allowed. 'B' will be decremented 
Scan keyboard and wait for KEY 
Check for control code 
JP if not control 
Check for <ENTER> 
JP if <ENIER> 
Check for <CLEAR> 
JP if <CLEAR> 
Check for <BREAK> 
JP if <BREAK> 
Load return address 
Push return address onto stack 
Check for <BACKSPACE> 
JP if <BACKSPACE> ' 
Check for <CANCEL> 
JP if <CANCEL> (Shift BACKSPACE) 
Check for <TAB> 
JP if <TAB> 

Check for <32-Char. Mode> 
JP if <32-char. mode> (Shift TAB.) 
Check for <LINEFEED> 
Return to 05E0 

if illegal control code 
Take 05E0 address off stack 
Put character in buffer 
LD A, number of characters 

left in buffer 
Compare against itself 

(only time zero flag set, 
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060F 



0611 
0613 
0616 
0617 



JR 



LD 

GALL 
DEC 
JR 



is when accumuator - zero) 
No more room left. 

Wait for either <ENTER> or <BRK> 

before returning. 
Restore character for output 
Output character 
DEC # of chars, left in buffer. 
Get another character 



0619 
061C 

061D 

061E 

061F 



********** 

*' Hitting the <CLEAR> key clears screen and 

* resets pointers to orginal state 



********** 



CALL 
LD 

POP 
PUSH 

JP 



Clear screen 

Restore # chars, left in buffer 

to original value 
Restore buffer pointer 
PUSH back on stack buffer pointer 

for possible re-use 
Back to the beginning I 



0622 
0625 
0626 
0627 
0628 
06 2A 

062B 

062C 
06 2D 
062F 



********** 

* Shift backspace clears one character at a time until the 

* beginning of the line, or until a LF is reached in the buffer. 



********** 



CALL 

DEC 

LD 

INC 

CP 

RET 

LD 

CP 
JR 

RET 



;Clear one character at a time 
;DEC buffer pointer after BKSP 
; Check char, at pointer 
;INC pointer before compare 
;CP with LF 
;RET. if LF since 

; can't BKSP over LF 
; Entry from shift BKSP. 

; Checks for beginning of buffer. 
;Is B=number chars, allowed? 
;JP if still have to backspace 
;Shift BKSP complete 



********** 

* BACKSPACE goes back one char, unless already at beginning of buffer 

* or at a LF. 



;Check for beginning of buffer 
;Is B-number chars, allowed? 
;Already at beginning of buffer 
;DEC pointer in buffer 
;Check character for LF 

;CP with Linefeed character 

;INC Pointer 

;Char. a LF, so RETURN. 

;DEC pointer after INC at 0637H. 





********** 


0630 


LD 


0631 


CP 


0632 


RET 


0633 


DEC 


0634 


LD 


0635 


CP 


0637 


INC 


0638 


RET 


0639 


DEC 
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063A 
063C 

063F 

0640 



0641 
0643 



0646 
0649 

064B 
064C 
064D 
064F 
0650 
0651 
0652 
0653 
0655 
0656 
0657 

0658 
065B 
065C 
065D 
065E 
065F 



LD 
CALL 

INC 

RET 



Load backspace char, for output 

Output backspace 

and erase previous character 
One more character allowed 

in buffer after BACKSPACE 
BACKSPACE completed 



********** 

* 32-character mode turns display to 32-char. mode 

* but does not store the character (17H) in buffer. 

********** 



LD 



JP 



LD character for 

double width chars. 
Output this char. 

Return to 05E0 (From PUSH) 



t******** 

TAB advances cursor and buffer pointer to next TAB position. 



>^»i^ *> *■- -'.. <* -'" »'-' -■- -<- 



CALL 
AND 

CPL 

INC 

ADD ; 

LD 

LD 

OR 

RET 

LD 

LD 

INC 

PUSH 

CALL 
POP 

DEC 
DEC 
RET 
JR 



Determine position on screen 

(Returns in 'A') 
Determine # of chars. 

until next stop 



;Save # chars, in 'E' 
;Check if space in buff. 

RET. if no space left 
LD A,<SPACE> 
Put <SPACE> in buffer 
INC buff, pointer 
Save DE since output 

will kill it. 
Output space 
Restore DE 

DEC space left in buffer. 
DEC # <SPACE>'S till next TAB pos 
RETURN if finished 
JP back and check 

for space in buffer. 



-kit-k ~k -k ~k -k -k~k -i 

#>** t\ a *> o *» *> n is 

* BREAK sets carry and places CR (0D) at buffer pointer loc. 
********** 

0661 SCF ;Set carry flag for break detect 

;<ENTER> BEGINS HERE ALSO. 

0662 PUSH ;Save flags 

0663 LD ;LD <ENTER> character 
0665 LD ;Place in buffer 



6-31 



Rom Disassembly: I/O 



0666 
0669 
066B 
066E 

066F 
0670 
0671 
0672 

0673 



GALL 
LD 

CALL 
LD 

SUB 
LD 
POP 
POP 

RET 



; Output <ENTER> 

; Cursor OFF 

; Output Cursor Off 

;Determine number of chars. 

; in buffer 

; Subtract current left from max. 

; Return in B 

;Restore flags 

;Return with HL pointing 

; to beginning of buffer. 

; DONE ! 



********** 

*COLDST : Coldstart Routine 
********** 

0674 C0LDST OUT 

0676 LD 

0679 LD 

067C LD 

067F LDIR 

0681 DEC 

0682 DEC 

0683 JR 

0685 LD 

0687 LD 

0688 INC 

0689 DJNZ 
06 8B LD 
06 8E AND 

0690 JP 

0693 LD 

0696 LD 

0699 INC 

06 9A CP 

069C JP 



********** 

- DISKBT : Disk boot strap 
r ********** 

06 9F DISKBT LD 



06A1 LD 

06A4 LD 

06A7 LD 

06AA LD 

06AC LD 



Cassette off 

LD vectors and DCBS to memory 

Starting at 4000H 

From 06D2H for 36H locations 
Move ! 



Repeat this procedure 

while RAM warms up 
Zero next 39 bytes of RAM 
Store zero 
INC RAM Pointer 
Loop through 39 locations 
Check for <BREAK> 

at bit 2 
JP to LEVEL II Coldstart 

if <BREAK> pressed 
LD Disk boot stack pointer 
Check for expansion interface 

and disks 
INC Floppy Disk Controller Status 
A status of 00 or FF is bad 
JP to LVLII Coldstart 

if missing or busy 



Disk bootstrap loads disk 
operating system by first 
loading bootstrap on track 00, 
sector 00 on drive 00. 

Start drive 

LD HL, Disk controller address 

LD DE, Disk data register address 
Restore head to track 
Delay during head movement 
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06AF 
06B2 
06B4 
06B6 
06B7 
06BA 

06BD 
06 BF 
06C0 
06C2 
06C4 
06C5 
06C6 
06C7 
06C9 



CALL 

BIT 

JR 

XOR 

LD 

LD 

LD 
LD 
BIT 

JR 

LD 

LD 

INC 

JR 

JP 



; DELAY Call 

;Check FDC Status 

;Loop if not ready yet 

;Clear A 

;Load sector register with zero (0) 

;LD BC, Destination of loader 

; program (4200H) 

;LD Read sector command 

;Read sector zero 

;Byte ready to be read? 

;Loop if no byte ready 

;LD byte from disk 

;Store in RAM 

;INC Pointer 

;JP if not a whole sector loaded 

;Goto loader! 



06CC 
06CF 



********** 

* BASIC : This is the proper entry to BASIC to 

* avoid an error 
********** 

BASIC LD ; Proper re-entry to BASIC 

JP ;Exit 



********** 

> The rest of the bootstrap section of the ROM from 06D2-0707H 
* is data loaded into RAM by the COLDSTART routine 






06D2 RSTRTS JP 




06D5 


JP 




06D8 


JP 




06DB 


JP 




06DE 


RET 




06DF 0000 


DEFW 


0000H 


06E1 


RET 




06E2 0000 


DEFW 


0000H 


06 E4 


EI 




06E5 


RET 




06E6 00 


DEFB 


00H 


06E7 01 


DEFB 


01H 


06E8 E303 


DEFW 


03E3H 


06EA 0000 


DEFW 


0000H 


06EC 00 


DEFB 


00H 


06ED 4B49 


DEFM 


'KI' 


06EF 07 


DEFB 


07H 


06F0 5804 


DEFW 


0458H 


06F2 003C 


DEFW 


3C00H 


06F4 00 


DEFB 


00H 


06F5 444F 


DEFM 


'DO' 



;RST'S Loaded into RAM @ 4000H 



;Enable Interrupts 



;Keyboard device type 
;Keyboard driver address 



^Keyboard device name 

;Display device type 
;Display driver address 
;Cursor position 
;Character at cursor position 
; Display device name 
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06F7 06 


DEFB 


06H 


06F8 8D05 


DEFW 


058DH 


06 FA 43 


DEFB 


43 H 


06FB 00 


DEFB 


00H 


06FG 00 


DEFB 


00H 


06FD 5052 


DEFM 


'PR' 


06FF 


JP 




0702 


RST 




0703- 


NOP 




0704 


NOP 




0705 


LD 




0707 


REX 




0707 ENDDAT EQU 




0703 


NOP 




0704 


NOP 




0705 


LD 




0707 


RET 





;Line printer device type 
; Printer driver address 
;Lines per page + I (default 67) 
;Line counter 

; Printer device name 



;END OF DATA 



; Clear 'A' 
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There are a few routines in the ROM which may be 

useful to the assembly language programmer. They are 

outlined here since they do not really fit in any of the 
chapters describing the individual units. 

Did you ever need to get access to the 
Program Counter (PC) to figure out where the current 
program is executing in memory? The following routine 
loads ' KL' with the contents of the updated PC: 



WHERE 
THIS AD 



CALL 

EQU 



000BH 



;LD HL,PC 

;HL will contain the 
j address of THISAD 
; in memory 



Parsing through a buffer is facilitated by one of the 
RSTs. RST 16 is used by the ROM to process BASIC programs 
in memory, but we can use it to scan a buffer of our own. 
Simply point 'HL' to the address one location before the 
position of the string and do an RST 16. The routine 
increments 'HL' and loads the character into 'A 1 . The 
flags are set to denote the type of character; if the 



Z flag is set, the character in 



'A 1 is either a 00H or a 



colon (:). The Carry flag is set if an ASCII number is 
found (0-9), This routine skips tabs, linefeeds, and 
spaces. 



LD 


HL,BUFPOS-l 


?Start position 
; in the buffer 


RST 


16 


;Parse buffer 


JP 


Z,ZERCLN 


;JP if 00H or colon 


JP 


CZT09 


;JP if thru 9 
? (30H-39H) 
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The Z80 cannot directly compare two 16-bit registers. 
The ROM has a built-in routine to perform such a function. 
The 'HL' register is compared to 'DE', and 'A' is lost. 
The flags are set depending on whether 'HL' is equal to, 
less than, or greater than 'DE'. If 'HL' = 'DE' , the 
Z flag is set. If 'HL' < 'DE* , the Carry flag is set. The 
interface is as follows: 



LD 


HL,A 


•Load 1st number 


LD 


DE,B 


Load 2nd number 


RST 


24 


CP HL f DE 


JP 


Z ,AEB 


JP if HL=DE 


JP 


NC,AGTB J 


JP if HL>DE 


JP 


CALTB , 


JP if HL<DE 



If you need to delay for a period of time before 
continuing a process, simply load 'BC with a count of 

1AA7H for each tenth of a second and call DELAY: 



DELAY 



LD 
CALL 



BC,DLYCNT 
0060H 



;Load delay count 
;Delay 



Ever want to route output to a device depending on a 
flag? The ROM routine DSPCHR does just that. It uses the 
OUTBFL at 409CH. If the flag has bit 7 set, output goes to 



the cassette. If not 
linepr inter. If equal to 
routine maintains the 
position on the video) . 

catch (or in this case, 



a zero (00H) , output to the 

zero, output to the video. This 

CRTPOS at 40A6H (current line 

However, this routine does have a 

hook). One of the first commands 

in this routine is a CALL to 41C1H. If you are running 

under vanilla Level II, this address should contain a RET. 

If you are under an OS, it may contain a JP instruction. BE 

CAREFUL 1 

****** 

* Check hook at 41C1H! 

* before calling DSPCHR 



****** 
LD A, CHAR 

DSPCHR CALL 032AH 



?Load character to 
; output 

?Display char on 
; current device 
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If you use the above routine, you may wish to use the 
RSTDEV routine at 038BH to restore the current device to 
the video display. 

The INCHRS routine (at 0361H) is present which inputs 
up to 240 characters into a buffer using the BUFFIN routine 
at 05D9H. It places a 00H as the last character in the 
line to replace the carriage return. Upon exit, 'A 1 is 
zero if the input ended with an ENTER. The Carry is set if 
the BREAK was hit. 'HL 1 points to the beginning of the 
buffer minus one. Here we also find a hook to 41AFH. Be 
sure to consider this in your programming. 

****** 

* Check hook at 41AF! 
****** 

LD HL, BUFFER ; Address of input 

; buffer 
INCHRS CALL 0361H ; Input max 240 chars 
INC HL ?HL to begin of 

: BUFFER 



Another routine that uses INCHRS (361H) is QINPUT at 
1BB3H. It will print a question mark and a space on the 
screen and then will accept up to 240 characters. The 
address of the pointer to the input buffer is in INBUFFP 
located at 40A7H. Remember the disk hook at 41AFH! 



The following routine outputs the buffer pointed to by 
'HL' to the current device using the DSPCHR routine, 
located at 032AH. The routine keeps outputting until it 
finds a 00H which marks the end of the data and which is 

not output. 

****** 

* Check DSPCHR hook at 41C1H 
****** 

LD HL, BUFFER ;Point to buffer 
MSGOUT CALL 2B75H ; Output buffer until 

: a 00H 



The next chapter contains items that didn't 
conveniently fit anywhere else. They include a discussion 
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of the RANDOM routine and several examples of real head 
scratching uses of Assembly language contained in the 
Level II ROM. 
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Did you ever wonder how the command RANDOM works? 
Well, first let's do a little test. Turn on your computer 
and go to Level II BASIC. Now, do a PRINT RND(O) and 
record the result (was it .768709?). Turn off the 
computer. Wait about 30 seconds and turn it back on. Go 
back into Level II do the same thing. You should get the 
same value. You see, there is no random number generator 
in the TRS-80 BASIC. It always starts at the same value 
upon power-up and proceeds to produce the numbers in the 
same series. Of course, the mathematical formula used to 
produce these "random" numbers gives us the impression that 
they are random since they are not in an obvious series. 

The RND function uses a set algorithm to find the 
next random number, using a "seed" as the starting point. 
Well, BASIC has supplied a method of beginning at an 
undeterminable starting point by using the RANDOM command. 
However, after a bit of logical thinking, we come to the 
same conclusion: "How can it pick a RANDOM starting point 
if it has to do it using a set algorithm?" We could 
checksum memory (adding the contents of each byte and 
throwing away the carries) , but even after that relatively 
long process, the end value may not be random (although it 
probably would be, in most cases). The solution is rather 
interesting. 

Have you ever heard of the refresh register? You 
know, that funny register which we can't really use but is 
included in the instruction set. Oh yes, you remember; 
that's the one which has the constantly changing value that 
the CPU uses to refresh the memory chips! Starting to see 
the light? 

RANDOM simply loads the accumulator with the value in 
the refresh register 'R' and stuffs it into part of the 
seed of the RND function. Look at the simple routine at 
01D3H. This command is used so seldomly that some 
disassemblers don't even take it into consideration. 
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Remember looking at the disassembly of the ROM and 
seeing something like this: 



0133 AF 

0134 013E80 
0137 013E01 



XOR A 

LD BC803EH 

LD BC,013EH 



It doesn't make a great deal of sense. Look 
carefully. Notice that the second byte of each of the 
LD BC instructions has a 3EH. Hmmmm. Coincidence? No, it 
is actually the Z80 opcode corresponding to a LD A,n. 
Let's take a look at how the source code could have looked: 



0133 AP 

0134 01 

0135 3E80 

0137 01 

0138 3E01 



ENT1 XOR A 

DEFB 01 

ENT2 LD A,80H 

DEFB 01 

END3 LD A,01H 



;Flag=Z 

;Hide next instr with 

; a LD BC 

;Flag=M 

;Hide next instr 

;Flag=NZ 



This structure is used several times throughout the ROM to 
provide entry points to a single routine which set a 
different flag depending on which entry is used. The 01H 
could be changed to a 11H to hide the next instruction with 
a LD DE or a 21H for a LD HL. The code to use depends on 
which register pair does not contain information which 
should not be destroyed. Since the ROM is using HL and DE 
at most times, BC is the choice. 



Another strange little bit of code one sometimes sees 
is like this: 

PUSH HL 

POP HL 

PUSH HL 

POP HL 



This is not designed to make sure that the value is REALLY 
there. It is used as a short delay, usually for an I/O 
latch to be set before testing for status, such as with the 
floppy disk controller. Sometimes this routine will be 
replaced with 



EX (SP),HL 

EX (SP),HL 



or 



EX (SP),IX 

EX (SP),IX 
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EX (SP),HL EX (SP),IX 

EX (SP),HL EX (SP),IX 

which also function as delays, but use up a little more 
time. If you use these techniques, be SURE that each PUSH 
is matched with a corresponding POP and that the Exchanges 
are done in pairs- If you don't you will change the stack, 
creating unpredictable results. 



Did you ever wonder why the HALT instruction 
(Op-code 76H) causes a reboot? HALT is normally used in an 
interrupt-driven machine to cause the CPU to halt execution 
until an interrupt occurs. The folks at Radio Shack have 
tied this signal to the Non Maskable Interrupt, so a HALT 
is the same as hitting RESET. 



Did you ever want to disable the BREAK key in a BASIC 
program? It is rather simple to do. You see, BREAK is 
considered a "character" by the keyboard driver (the value 
of a BREAK is 01H) . At the end of the driver at address 
0453H, it checks to see if the character being returned is 
a BREAK (01H) . If it is, it performs an RST 40, which 
under DOS is an entry to DEBUG. So, we simply change the 
RST vector to modify the value in the accumulator to 
whatever we want. Here's an example: 

1000 BREAK=16396 '&H400C 

1010 POKE BREAK, 62 '&H3E (LD A,N> 

1020 POKE BREAK+1,0 'Totally disable break 

1030 POKE BREAK+2,201 'RET 

1040 PRINT "BREAK HAS BEEN DISABLED." 



How about this one: 



1000 BREAK=16396 '&H400C 

1010 POKE BREAK, 62 *&H3E (LD A,N) 

1020 POKE BREAK -f 1,191 'FLAG BREAK PRESSED 

1030 POKE BREAK4-2,201 'RET 

1040 CLS: PRINT "Updating Database....": 

PRINT " PLEASE do not hit BREAK" 

1050 REM *** Update database here, checking keyboard 
1060 REM *** input as follows: 
1070 A$=INKEY$: 

IF A$=CHR$(191) then 2000 
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1080 REM *** Continue updating database 

1090 POKE BREAK+1,1 'They've been good, restore BREAK 

1100 PRINT "Thank you for you patience. ": END 

2000 CLS: PRINT "You obviously do not follow directions, ": 

PRINT n even when you are asked politelyl" 
2010 PRINT "Just for that...": 

PRINT " CLEARING DATABASE" 
2020 REM *** Clear database here 
2030 GOTO 2030 



Somehow, I get 
me. . . 



the feeling that this may come back to haunt 



Well, we seem to have run out of chapters at this 
point, but we still have enough Appendices to outfit a 
baseball team. There are several tables that we felt that 
you would need, and we have provided drivers for the I/O 
devices. They may not be fancy, but they do demonstrate 
the techniques that we have been discussing. 
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The following list was 
with a quick reference 
pointers. It was no t de 
for the various address 
of the use(s) of the 
this volume are either 
manuals, or are discusse 
by labels. For a simila 
in Volume I. 



developed to supply the assembly language programmer 
to routine entry points, I/O areas, storage areas, and 
signed as a complete interfacing guide. Labels listed 
es provide a meaningful code-word giving some indication 
routines or areas. Address locations not described in 
self-explanatory, may be found in Radio Shack reference 
d in other volumes. This list is sorted alphabetically 
r list, sorted by address, one can refer to Appendix A 







A-l 



START END LABEL DESCRIPTION 



1364 


136B 




136C 


1373 




1374 


137B 




1384 


138B 




07FD 


0800 




0801 


0804 




0805 


0808 




0834 


0839 




0841 


0846 




143 C 


1441 




147A 


147D 




147E 


1481 




1482 


1485 




1486 


1489 




148A 


148D 




1594 


1597 




1598 


159B 




159C 


159F 




15A0 


15A3 




15E4 


15E7 




15E8 


15EB 




15EG 


15EF 




15F0 


15F3 




15F4 


15F7 




15F8 


15FB 




15FC 


15FF 




1600 


1603 




37F0 


37FF 




403E 


403F 




404C 


40 4F 




407F 






40 9F 






40AD 






4030 


4032 


ABORT 


0977 




ABS 


0C5B 


0C6F 


ABSINT 


4410 




ACTINT 


249F 




ADD 


0G77 




ADDDBL 


070B 




ADDHL 


0BD2 




ADDINT 


0716 




ADDSNG 


298F 




ADDSTR 


0708 




ADHALF 


25FD 




AND 


40FB 


40FC 


ARRAYS 


2A0F 




ASC 


0E65 




ASCBIN 


4130 




ASCBUF 


0E6C 




ASCINT 


OFBE 




ASGTJSG 



DBL: 1D+10 

DBL: 1D+15 

DBL: 1D+16 

DBL: 1D+16 

SNG: .598979 

SNG: .981471 

SNG: 2.88539 

SNG: -.5 into BCDE 

SNG: .693147 into BCDE 

SNG: 1.4427 

SNG: -1.41316E-4 

SNG: 1.32988E-3 

SNG: -8.30136E-3 

SNG: .0416574 

SNG: -0.166665 

SNG: 39.7107 

SNG: -76.575 

SNG: 81.6022 

SNG: -41.3417 

SNG: 2.866 23E-03 

SNG: -0.0161657 

SNG: 0.0429096 

SNG: -0.0752896 

SNG: 0.106563 

SNG: -0.142089 

SNG: 0.199936 

SNG: -0.333331 

Same as 37E0-37EF 

Unused under Level II 

Unused under Level II (interrupt processing under DOS) 

Unused under Level II 

Unused under Level II 

Unused under Level II 

ABORT under DOS (unused under LII) 

ABS (Band D9H) 

Take absolute value o£ integer 

Activate an interrupt task 

+ (Band CDE) 

Add double 

(HL) + FPA1 -> FPA1 

Integer add 

Add single precision 

Concatenate two strings 

FPA1 +0.5 -> FPA1 

And (Band D2H) 

Pointer to beginning of arrays 

Asc (Bond F6H) 

Convert ASCII buffer to binary value 

Numeric work area: converted binary to ASCII number 

Convert ASCII buffer to integer value 

Convert ASCII from 'USING' routine 
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START END LABEL DESCRIPTION 

15BD ATN Atn (Bond E4H) 

15E3 1607 ATNTBL Arctan data table 

1A5A ATOOFF Turn AUTO off 

40E4 40E5 AUTINC Auto increment 

2008 AUTO Auto (Bond B7H) 

40E1 AUTOFL Auto flag (Non-zero=0N. Zero after BREAK) 

40E2 40E3 AUTOLN Auto line number 

1A60 AUTOON INC to new AUTO line number 

06 CC BASIC Proper re-entry to Level II BASIC 

1650 1820 BCTBL BASIC command table (b7 of 1st char, of reserved word high) 

0FBD BINASG Convert binary value to ASCII 

4445 BKSPA Backspace a file 

27 3D BSERR Subscript out of range error 

05D9 0673 BUFFIN Buffer input routine 

0040 BUFFNV Vector to buffer input routine (BUFFIN) 

0000 CBOOT ROM Level II Bootstrap 

0ADB CDBL CDBL (Bcmd F1H) 

4309 CDRVBT Current drive being used with correct bit pattern 

already calculated and stored at this address. 

0982 CHGSGN Change sign routine 

1963 CHKMEM Check if enough memory available 

OAF 4 CHKSTR Check type for string and TMERR if not 

2A1F CHR Chr$ (Bond F7H) 

0A7F CINT CINT (Bcmd EFH) 

1E3D CKA2Z Check if a character A-Z 

0955 0963 CKRMZP Tests values for Minus, Zero, or Plus 

1E7A CLEAR Clear (Bcmd B8H) 

2C1F CLOAD CLoad (Bcmd B9H) 

4185 CLOSE CLOSE: (DBcmd A6H) 

4428 CLOSE CLOSE (DOS file call. P#6-ll) 

021E 022B CLRCFF Clear CFF 

01C9 CLS CLS (Bcmd 84H) 

4173 CMD CMD: (DBcmd 85H) 

4405 " CMDINT Command Interpreter entry point 

1822 CMDTBL Entry points for command table (BCTBL) 

1DE9 CNERR Can't continue error 

216 9 2177 COFFIO If cassette is on, turn off 

0674 06CF COLDST Cold Start 

37DF COMDAT Communication Data Address 

4052 4053 COMIRT Communications interrupt vector 

37DE COMSTA Communication Status Address 

42E8 C0N0 Constant: 

1DE4 CONT Cont (Bcmd B3H) 

1E5A COKVRT Convert bytes in buffer to two-byte DE value 

1541 COS Cos (Bcmd E1H) 

0A78 CPRDBL Double precision compare 

0A39 CPRINT Integer compare 

0A0C CPRSNG Compare single precision 

0241 0260 CRBIT Read bit from cassette 

0235 0240 CRBYTE Read byte from cassette 

0296 CRLDR Find sync, put stars in corner 
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START END LABEL DESCRIPTION 



401E 

0033 

4023 

401D 

3C00 

033A 

40 A6 

3C00 

3E40 

3E80 

3EC0- 

3F00 

3F40 

3F80 

3FC0 

3G40 

3C80 

3CC0 

3D0O 

3D40 

3D80 

3DG0 

3E00 

401D 

2BF5 

37 E4 

0AB1 

022C 

029F 

403D 

0075 

0023 

01F8 

01FE 

0293 

0284 

43 OC 

4022 

43 OA 

4308 

40A2 

40EG 

43 OE 

4020 

40D8 

415E 

4152 

4158 

0261 

01D9 

0264 



401F 

4024 
4024 

3FFF 



3C3F 
3E7F 
3EBF 
3EFF 
3F3F 
3F7F 
3FBF 
3FFF 
3C7F 
3CBF 
3CFF 
3D3F 
3D7F 
3DBF 
3DFF 
3E3F 



0234 



02A8 
0292 
43 OD 

43 OB 

40A3 
40 ED 

4021 
40D9 



0283 
01F7 



CRTADR 

CRTBYT 

CRTCON 

CRTDCB 

CRTMEM 

CRTOBT 

GRTFOS 

CRTR1 

CRTR10 

CRTR11 

CRTR12 

CRTR13 

CRTR14 

CRTR15 

CRTR16 

CRTR2 

CRTR3 

CRTR4 

CRTR5 

GRTR6 

CRTR7 

CRTR8 

CRTR9 

GRTTYP 

CSAVE 

CSELCT 

GSNG 

CSTAR 

GSTARS 

CSTATU 

CSTLII 

CTLBYT 

CTOFF 

CTON 

CTONRL 

CTONWL 

GURBUF 

CURCHR 

CURDCB 

CURDRV 

CURLIN 

CURNUM 

CUROVL 

CURPOS 

CURTKN 

CVD 

CVI 

CVS 

CW2BYT 

CWBIT 

CWBYT 



Driver address (0458H) 

Display byte in 'A' at 

Constant: D 

Video DCB 

Video display memory 

Output 'A' to video (DE saved) 

Current line position on Video 

Row 1 on CRT 

Row 10 

Row 11 

Row 12 

Row 13 

Row 14 

Row 15 

Row 16 

2 

3 

4 

5 

6 

7 



cursor (DE lost) 



Row 

Row 

Row 

Row 

Row 

Row 

Row 8 

Row 9 

DCB Type (07) 

CSave (Bcrad BAH) 

Cassette select latch address 

CSNG (Band F0H) 

Change star in corner for cassette operations 

Put stars in corner 

Cassette status byte 

Cold start for Level II BASIC 

Output a control byte to a device. 

Cassette off 

Cassette on 

Cassette on, find sync, put stars in corner 

Cassette on, write leader and sync, byte 

Currently active 1/0 buffer for file reads/writes, 

Cursor character 

Address of currently active DCB 

Current drive being used 

Current line number 

Current line number 

Current overlay in memory 

Cursor position on screen (L,H) 

Stores pointer to current token 

CVD: (DBcmd E8H) 

CVI: (DBcmd E6H) 

CVS: (DBcmd E7H) 

Write byte to cassette twice 

Write bit to cassette 

Write byte to cassette 
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0287 




CWLDR 


199A 




DOERR 


1F05 




DATA 


40A9 




DATAFL 


4470 




DATE 


40FF 


4100 


DATPTR 


37 EF 




DATREG 


4045 




DAY 


2CA5 


2CA8 


DBAD 


4152 


41A5 


DBJPVS 


0D33 


0D44 


DBLMA 


0D45 


0D56 


DBLHS 


0AB9 




DBLSNG 


000D 




DBOOT 


1930 


1934 


DBREAK 


4419 




DCTTSK 


2733 




DDERR 


440D 




DEBUG 


40 5D 




DEBUG1 


40 5E 




DEBUG2 


40 5F 




DEBUG3 


4060 


4061 


DEBUG4 


406 2 




DEBUG5 


4063 


4064 


DEBUG6 


406 5 


407C 


DEBUGS 


4315 


4317 


DEBUGV 


415B 




DEF 


1E09 




DEFDBL 


0212 


021D 


DEFDRV 


4473 




DEFEXT 


1E03 




DEF INT 


1E06 




DEFSNG 


1E00 




DEFSTR 


006 


006 5 


DELAY 


2BC6 




DELETE 


2286 


2294 


DEXTIG 


2608 




DIM 


4300 


4307 


DIRTRK 


06 9F 




DISKBT 


0897 




DIVIO 


0DE5 




DIVDBL 


2490 




DIVINT 


4080 


40 8D 


DIVRAM 


08A2 




DIVSNG 


0F18 




DIVTEN 


40 AE 




DLFLG 


0105 


0110 


DMEMSZ 


4318 


4347 


DOSBUF 


4200 


42FF 


DOSIOB 



Write leader and sync, byte 

Division by zero error 

Data (Band 88H) 

Data statement flag 

Returns DATE into 8-byte HL buffer 

Pointer to deliraeter after last DATA Value read 

Floppy disk data register 

Day 

Data "BAD<CR>" 

Disk BASIC jump vectors 

Double precision mantissa addition 

Double precision mantissa subtract 

Convert double to single 

Vector to disk bootstrap 

Data "Break" 

Deactivate an interrupt task 

Redimensioned array error 

Enter the real-time debugging facility 

Debug; A or H (ASCII or H) or LSB of first breakpoint 

Debug: O^Normal screen, <>0 = Full screen: 

or MSB of first BREAKPT 
Debug: Instruction byte at breakpoint 
Debug; Second breakpoint or single-step 
Debug: Instruction byte at second breakpoint 
Debug: Address currently being displayed on screen 
DEBUG: Register save area 

(AF,BC,DE,HL,AF',BC',DE',HL',IX,IY,SP,PC) 
Debug vector 
DEF: (DBcmd BOH) 
Defdbl (Bcmd 9BH) 
Define cassette drive from 'A' 
Add default file extension 
Defint (Bcmd 99H) 
Defsng (Bcmd 9AH) 
Defstr (Bcmd 98H) 

Delay routine (BC^Counter. 14.66 msec/ loop) 
Delete (Bcmd B6H) 
Data "?Extra ignored" 
Dim (Bcmd 8AH) 

Locations of the directory tracks of the different drives 
Disk bootstrap 
FPA1 / 10 -> FPA1 
Double precision division 
Integer divide 

RAM used with single precision divide 
Divide single precision 
Divide by ten (10) 
Dimension/Let flag from parser 
Data "MEMORY SIZE" 
DOS Command buffer 
DOS I/O buffer for sectors from disk 
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4049 


40 4A 


DOSMEM 


40 2D* 


; 40 2F 


DOSVEC 


1928 


192E 


DREADY 


2178 


217D 


DREDO 


03 C2 


03 E2 


DRIVER 


0046 




DRIVRV 


0111 


012B 


DRSL2B 


37E1 




DSELCT 


407D 


407E 


DSKBSP 


5200 


6FFF 


DSKUTL 


032A 


0347 


DSPCHR 


2E60 




EDIT 


1F07 




ELSE 


1DAE 




END 


51 FF 




ENDOVR 


40 FD 


40FE 


ENDVAR 


1A19 




ENTLII 


4161 




EOF 


41A6 




ERHOOK 


24DD 




ERL 


24CF 




ERR 


40F2 




ERRFLG 


40EA 


40EB 


ERRLIN 


40 9A 




ERRNBR 


1FF4 




ERROR 


40F0 


40F1 


ERRPRC 


19A2 




ERRPRT 


18C9 


18F6 


ERRTBL 


1439 




EXP 


1479 


1499 


EXPTBL 


4125 




EXPWRK 


1E4A 




FCERR 


37EC 




FDGADR 


21 8A 




FDERR 


417C 




FIELD 


0B26 




FIX 


4155 




FN 


249F 




FNSCAN 


1CA1 




FOR 


40DC 




FORFLG 


4121 


4124 


FPA1 


4124 




FPA1E 


0778 




FPA1EZ 


4121 


4123 


FPA1M 


4127 


41 2E 


FPA2 


09CB 




FPAMEM 


27 D4 




FRE 


1608 




FUNTBL 


417F 




GET 


0314 


031C 


GETADR 


0049 


004F 


GETCER 



DOS memory size determined at power-up 

DOS Transfer Vector 

Data "READY<CR>" 

Data "?REDO" 

I/O Driver 

Vector to I/O driver routine @ 03C2H 

Data "RADIO SHACK LEVEL II BASIC<CR>" 

Disk drive select latch address 

Disk boot stack pointer beginning location 

Disk BASIC/DOS utilities/User memory 

Display byte on current device (Device fig {§ 409CH) 

Edit (Bcmd 9DH) 

Else (Bcmd 95H) 

End (Bcmd 80H) 

End of DOS overlay area 

End location of array variables 

Entry point to Level II BASIC 

EOF: (DBcmd E9H) 

Hook to Disk BASIC for long error msgs. 

Erl (Bcmd C2H) 

Err (Bcmd C3H) 

FFH after error. Zero if no error 

Line containing error 

Level II Error 

Error (Bcmd 9EH) 

Address of "ON ERROR" 

Output an error msg 

Error abbreviation table 

Exp (Bcmd E0H) 

Exp data table 

Exponent work area 

Illegal function call error 

Floppy disk controller address 

Bad file data error 

FIELD: (DBcmd A3H) 

Fix (Bcmd F2H) 

FN: (DBcmd BEH) 

Scan for functions 

For (Bcmd 81H) 

Set to 64 on FOR loop. Prevent subscripted variable. 

Floating Point Accumulator 

Characteristic (exponent) 

Zero exponent of FPA1 

Mantissa 

Floating Point Accumulator #2 

Transfer FPA1 to (HL) 

Fre (Bcmd DAH) 

Function Table 

GET: (DBcmd A4H) 

Get a 2 byte address from tape (Ret in HL) 

Scan keyboard waiting for input. (DE lost) 
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1E4F 


1E79 


GETLN 


Scan line for line number 


1EB1 




GOSUB 


Gosub (Band 91H) 


1EC2 




GOTO 


Goto (Band SDH) 


0132 


01C8 


GRPHGS 


Graphics Routines 


02A9 




GSYSTR 


Get transfer address for system 


0384 


03 8A 


GTDCHR 


Get one char, input from keyboard, (DE saved) 


1E4F 


1E79 


GTLNUM 


Get line number 


441 C 




GTSPEC 


Get a file specification from buffer 


148E 


1491 


HALF 


SNG: .5 


158B 


158E 


HALFPI 


SNG: 1.5708 (PI/2) 


137C 


1384 


HLFDBL 


DBL: .5 


09B1 




HLFPA1 


(HL) — > FPAl 


OACF 




HLSNG 


Convert HL to single 


189A 




HRCHY 


Algebraic heirarchy table 


4043 




HRS 


Hours 


2831 




IDERR 


Illegal direct error 


2039 




IF 


If (Band 8FH) 


40A7 


40A8 


INBUFP 


Input buffer pointer 


0013 




INBYT 


Input a byte from a device 


0361 


0383 


INCHRS 


Input up to 240 chars, into 'HL' buffer. 
End of line has zero byte. 


1B4D 




IN IT 


Initialize work area 


4420 




INIT 


INIT (DOS file call. P#6-8) 


01 9D 




INKEY 


Inkey$ (Bond C9H) 


2AEF 




INP 


Inp (Bond DBH) 


4093 


4095 


INPRAM 


INP function (93 = "IN" instruction, 94 = port, 9 


21 9A 




INPUT 


Input (Bond 89H) 


41 9D 




INSTR 


INSTR: (DBcmd C5H) 


0B37 




INT 


Int (Bond D8H) 


0B59 


0B9D 


INTDBL 


Take integer of double 


404C 




INTENB 


Interrupts enabled (bit mask) 


37 EO 




INTLAT 


Interrupt Latch Address 


40 4B 




INTMSK 


Interrupt mask 


0B3D 


0B58 


INTSNG 


Take integer of single 


40 4D 


40 5C 


INTTBL 


Interrupt jump address for interrupts 0-7 


41 E6 


42E7 


IOBUFF 


I/O Buffer 


4033 


4035 


IODERR 


Called by driver after illogical driver call 


3801 




KB1 


Location for: @ A B CDEFG 


3802 




KB2 


Location for: H I J R L M N 


3804 




KB3 


Location for:PQRSTUVW 


3808 




KB4 


Location for: X Y Z 


3810 




KB5 


Location for: 01234567 


3820 




KB6 


Location for: 8 9 : ; , - . / (Also ()*+<=>?) 


3840 




KB 7 


Location for: Enter Clear Break 

Arrow D. Arrow L. Arrow R. Arrow Space 


4018 


401C 


KBCONS 


Constant: K I 


4016 


4017 


KBDADR 


Driver address (03E3H) 


03 58 


0360 


KBDSCN 


Scan keyboard. (DE NOT LOST) 


4036 




KBIM1 


01H 


4037 




KBIM2 


02H 


4038 




KBIM3 


04H 



Ret) 



A-7 



START END LABEL DESCRIPTION 



4039 
403A 
403B 
403 C 
4036 
002B 
0050 
4015 
4099 
4015- 
03 E3 
3800 
4191 
442C 
0000 
4000 
012D 
7FFF 
BFFF 
FFFF 
4FFF 
09BF 
09C2 
2A61 
2A03 
.1F21 
41A3 
40 9D 
2B2E 
40E6 
2B29 
4188 
4430 
4164 
4167 
0809 
4047 
03 9C 
2067 
37E8 
4026 
003 B 
40 2A 
4025 
058D 
4029 
4028 
40 9B 
4025 
29A3 
4197 



403G 
005F 



401G 
0457 
3BFF 



2FFF 
4014 



40E7 



4048 
03C1 



4027 

40 2C 
40 2C 
05D8 



KBIM4 

KBIM5 

KBIM6 

KBIM7 

KBIMAG 

KB SCAN 

KBTBL 

KBTYP 

KEYBUF 

KEYDCB 

KEYIN 

KEYMEM 

KILL 

KILL 

L2ROM 

L2VECS 

L3ERR 

LAD16K 

LAD32K 

LAD48K 

LAD4K 

LDFPA1 

LDFFHL 

LEFT 

LEN 

LET 

LINE 

LINLEN 

LIST 

LLEND 

LLIST 

LOAD 

LOAD 

LOC 

LOF 

LOG 

LOW 

LPDCHR 

LPRINT 

LPTADR 

LPTADR 

LPTBYT 

LPT CON 

LPTDCB 

LPTDRV 

LPTLCT 

LPTLPP 

LPTPOS 

LPTTYP 

LSERR 

LSET 



08H 

10H 

20H 

40H 

Keyboard image 

Keyboard scan return input in A. (DE lost.) 

Table of Special Characters for keyboard routine 

DCB Type (01) 

Inkey$ buffer or flag (last key hit on keyboard) 

Keyboard DCB 

Keyboard scan driver 

Keyboard memory (1,2,4,8,10,20,40,80H) 

KILL: (DBcmd AAH) 

KILL (DOS file call. P#6-ll) 

Radio Shack Level II BASIC ROM 

Level II fixed RAM vectors 

Level III error 

16K TRS-80 

32K TRS-80 

48K TRS-80 

4K TRS-80 



Last RAM address in 

Last RAM address in 

Last RAM address in 

Last RAM address in 

Load FPA1 into BCDE 

Load real value pointed to by HL 

Left$ (Bcrad F8H) 

Len (Bcmd F3H) 

Let (Bcmd 8CH) 

LINE 2 (DBcmd 9CH) 

Maximum length of a line on the screen 



List 



(Bcmd B4H) 



Points to end of previous line or current line 

LList (Bcmd B5H) 

LOAD: (DBcmd A7H) 

Load a machine language format file 

LOC: (DBcmd EAH) 

LOF: (DBcmd EBH) 

Log (Bcmd DFH) 

Contains address of lowest byte of avail, mem under DOS 

Output byte in 'A' to printer (DE saved) 

Lprint (Bcmd AFH) 

Line printer address 

Driver address (058DH) 

Send byte in ' k' to printer (DE lost) 

Constant: P R 

Line printer DCB 

Printer driver 

Line counter 

Number of lines /page 

Line printer line position 

DCB Type (06) 

String too long error 

LSET: (DBcmd ABH) 
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40B1 


40B2 


LSTBYT 


40DA 


40DB 


LSTDTL 


27G9 




MEM 


00G4 


00D5 


MEMSIZ 


41 8B 




MERGE 


2A9A 




MID 


4042 




MTNS 


0AA3 


0AA8 


MINVAL 


4170 




MKD 


416A 




MKI 


416D 




MKS 


4046 




MO 


24A0 




MOERR 


09D3 




MOVDAT 


2B75 




MSGOUT 


0DA1 




MULDBL 


0BF2 




MULINT 


0847 




MULSNG 


418E 




NAME 


40F7 


40F8 


NBIBP 


1492 


1495 


NEGONE 


1B49 




NEW 


22BC 




NEXT 


199D 




NFERR 


0066 


0074 


NMI 


1A76 




NOAUTO 


2FC4 




NOT 


198A 




NRERR 


2212 




ODERR 


22A0 




0DERR2 


197A 




OMERR 


1F6C 




ON 


07F8 


07FB 


ONEl 


1496 


1499 


ONE2 


1604 


1607 


0NE3 


4179 




OPEN 


4424 




OPEN 


4476 




OPTION 


25F7 




OR 


28DB 




OS ERR 


2AFB 




OUT 


409C 




OUTBFL 


001B 




OUTBYT 


20FE 




OUTCR 


4467 




OUTLIN 


28A7 




OUTLN 


446A 




OUTLP 


4096 


4098 


OUTRAM 


07 B2 




OVERR 


43 OF 




OVLDBG 


13D8 


13E1 


P10TAB 



Address of last usable byte in memory (BASIC) 

Last data line number read 

Mem (Bcmd C8H) 

Determine memory size 

MERGE: (DBcind A8H) 

Mid$ (Bcmd FAR) 

Minutes 

SNG: -32768 / BCDE 

MKD$: (DBcind EEH) 

MKI$: (DBcmd ECH) 

MKS$: (DBcmd EDH) 

Month 

Missing operand error 

Move data from (HI) — > (DE) 

Output a msg until zero (0) 

Double precision multiply 

Integer multiply 

Multiply single precision 

NAME: (DBcmd A9H) 

Ptr to next byte to be used with "CONT" 

SNG: -1.0 

New (Bond BBH) 

Next (Bcmd 87 H) 

Next without For error 

Non-maskable interrupt 

Auto-off line input 

Not (Bcmd CBH) 

No resume error 

Out of data error 

Out of data error (also @ 2212H) 

Out of memory error 

On (Bcmd A1H) 

SNG: 1.0 

SNG: 1.0 

SNG: 1.0 

OPEN: (DBcmd A2H) 

OPEN (DOS file call. P#6-9) 

Get optional command flags from buffer 

Or (Bcmd D3H) 

Out of string space error 

Out (Bcmd A0H) 

Output bit flag: 0=Video, l=Lp 5 80=Cassette 

Output a byte to a device 

Output a CR to current device 

Output a line to the CRT 

Output a line until zero (0) 

Output a line to the printer 

OUT function (96=Out ,97=port,98=Ret) 

Overflow error 

Overlay/Debug flag 

Power of ten table: 10000,1000,100,10,1 
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START END LABEL DESCRIPTION 



2C8A 


2C92 


PBAD 


2CAA 




PEEK 


227C 


2285 


PEXTIG 


40A4 


40A5 


PGMBGN 


40 EE 


40 EF 


PLEND 


0132 




POINT 


2GB1 




POKE 


08A0 




POPFPA 


27F5 




POS 


4448 




POSEOF 


0348 


0357 


POSIND 


4442 




POSN 


4409 




POSTER 


13F2 




POWER 


206F 




PRINT 


40 9E 




PRNTZN 


05D1 




PSTATU 


40D8 




PUCBYT 


4182 




PUT 


1BB3 




QINPUT 


158F 


1592 


QUARTR 


01D3 




RANDOM 


40DE 




RDINFL 


21 EF 




READ 


4436 




READ 


1A25 




READY 


41 ID 


4124 


REAL 8 


41 ID 


4120 


REAL8M 

REM 


0138 




RESET 


40FF 


40A0 


RESTLN 


1D91 




RESTOR 


1FAF 




RESUME 


1EDE 




RETURN 


443F 




REWIND 


1EEA 




RGERR 


2A91 




RIGHT 


14C9 




RND 


4090 


4092 


RNDMUL 


40AA 


40AG 


RNSEED 


41 9A 




RSET 


0010 




RST16 


1D78 


1D90 


RST16 


4003 




RST16 


0018 




RST24 


1C90 


1C95 


RST24 


4006 




RST24 


0020 




RST32 



25D9 



RST32 



Prints "BAD" on screen 
Peek (Bond E5H) 
Load "?Extra ignored" 

Pointer to start of BASIC program 

Pointer to previous line end 

Point (Band C6H) 

Poke (Band B1H) 

Restores old BCDE from stack 

Pos (Bond DCH) 

Position a file to EOF 

Line position indicator 

POSN (DOS file call. P#6-9) 

Post error message entry point 

Raise to a power (Ex: X raised to the N, X**N) 

Print (Bond B2H) 

Next print zone (reached after a comma as in ?A,B,C) 

Test printer status. Z Flag set if ready. 

Printusing control byte: Bit2=*,3=+ ,4=$,6=Comma 

PUT: (DBcmd A5H) 

Print "? ". Input up to 240 characters 

SNG: .25 

Random (Band 86 H) 

Read/Input flag: Non~zero=read / Zero ~ input 

Read (Bond 8BH) 

READ (DOS file call. P#6-9) 

Load "READY" message 

Double precision variable 

Extended mantissa : Double precision 

Rem (Bcmd 93R) 

Reset (Bcmd 82H) 

Used with RESTORE. Keeps current line number for "READ" 

Restore (Bcmd 90H) 

Resume (Bond 9FH) 

Return (Bcmd 92H) 

Rewind a file to the beginning 

Return without Gosub error 

Right$ (Bond F9H) 

Rnd (Bcmd DEH) 

Mantissa of multiplicative constant for RND 

RND function seed 

RSET: (DBcmd ACH) 

INC HL. If (HL) is ASCII 0-9 SCF. 

If value is zero, set Z flag. Skips spaces. 

Inc HL/ If (HL) is ASCII 0-9 SCF. 

RST16: 1D78; INC HL/If ASCII 0-9 SCF/Set if Z/Skip Spa 

CP HL,DE (A lost.) 

CP HL,DE (A lost) 

RST24: 1C90; CP HL,DE (A lost.) 

P/U TYPFLG at 40AFH. If <8 SCF. RRT. 

Flags set as a result of type. M«Int.,Z~Str J PO=SNG,NC=DBL 

From RST 32: P/U flag @ 40AFH. If <8 SCF, RRT. 
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4009 




RST32 


0028 




RST40 


400C 




RST40 


0030 




RST48 


400F 




RST48 


0038 




RST56 


4012 




RST56 


0008 




RST8 


1C96 


1CA0 


RST8 


4000 




RST8 


038B 


03 9B 


RSTDEV 


06D2 


06 DD 


RSTRTS 


4040 




RTSC 


1EA3 




RUN 


4433 




RUN 


19A0 




RWERR 


41A0 




SAVE 


0A9A 




SAVINT 


158B 


15A7 


SCDTBL 


40F9 


40FA 


SCLERS 


37EE 




SECREG 


4041 




SECS 


0135 




SET 


OAEC 




SETDBL 


0A9D 




SETINT 


OAEF 




SETSNG 


098A 




SGN 


098D 




SGNAE 


3880 




SHIFT 


1547 




SIN 


1593 


15A7 


SINTBL 


1997 




SNERR 


9B4 




SNGFPA 


OACC 




SNGINT 


1BC0 




SPACK 


40 E8 


40 E9 


SPSAV 


13E7 




SQR 


0814 


0819 


SQR202 


0221 




STATFF 


2B01 




STEP 


28A1 




STERR 


2B7E 




STFUNP 


09A4 


09B0 


STKFP1 


1DA9 




STOP 


40B5 


40D2 


STPRMS 


2836 




STR 


40D4 


40D5 


STRADR 


40D6 


40D7 


STRFRE 


2A2F 




STRING 


40D3 




STRLEN 


40A0 


40 Al 


STRNGS 



RST32: 25D9; If TYPFLG<8, SCF/RRT/M-INT,Z=STR,PO=SNG,NC-DBL 

JP DOS command processor 

RST40: DOS Command Processor 

Debug breakpoint 

RST48: Debug breakpoint 

Interrupt Mode 1 

RST56: Interrupt mode 1 

(Parser) CP (Syntax)/RST16 if =/Else SNERR 

(Parser) CP (Syntax). RST16 if equal. Else SNERR. 

RST8: 1C96; (Parser) CP (Syntax)/RST16 IF=/Else SNERR 

Reset devices. Set output back to CRT 

RST's loaded into RAM starting @ 4000H 

25 MSec Real-time scheduling counter 

Run (Bcmd 8EH) 

Load and execute machine language file 

Resume without error 

SAVE: (DBcind ADH) 

Save integer in HL to FPA1 . Vartyp -> Int (2) 

Sin/Cos data table 

Pointer to beginning of scalers 
Floppy disk sector register 

Seconds 

Set (Bcmd 83H) 

Change type flag to DBL 

Change TYPFLG to INT 

Change type flag to single 

SGN (Bcmd D7H) 

Alternate entry point to SGN 

Location for: Shift (Electric pencil control key {§ 10H) 

Sin (Bcmd E2H) 

Sin data table 

Syntax error 

BCDE (Single precision val.) — > FPA1 

Convert integer to single 

Source pack routine 

Stack pointer save area 

SQR (Bcmd DDK) 

SNG: .707107 (SQR(2)/2) into BCDE 

Change status of CFF from HL 

Step (Bcmd CCH) 

String formula too complex error 

Scan text until zero. Unpack into INBUFP buffer 

Puts a real value onto the stack 

Stop (Bcmd 94H) 

String param. area. 3 byte sets. lST=Length, 2-3=Address 

Str$ (Bcmd F4H) 

Address of current string 

Next free byte in string area 

String $ (Bcmd C4H) 

Length of current string 

Beginning of string area 
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40B3 


40 B4 


STRPTR 


2532 




SUB 


0C70 




SUBDBL 


0710 




SUBHL 


0BG7 




SUB INT 


0713 




SUBSNG 


031D 


0329 


SYSGO 


02B2 




SYSTEM 


2137 




TAB 


15A8 




TAN 


0DD4 


ODDB 


TENDBL 


4176 




TIME 


446D 




TIME 


0AF6 




TMERR 


40 DF 


40E0 


TRAADR 


411B 




TRCFLG 


37 ED 




TRKREG 


1DF8 




TROFF 


1DF7 




TRON 


4300 


5FFF 


TRSDOS 


4416 




TSKCHG 


4413 




TSKOFF 


154A 


154F 


TWOPI 


15A4 


15A7 


TWOPI 


40B0 




TYPFL2 


40 AF 




TYPFLG 


4101 


41 1A 


TYPTBL 


2003 




UEERR 


1ED9 




ULERR 


2CBD 




USING 


27 FE 




USR 


40 8E 


40 8F 


USRADR 


0A7F 




USRINP 


0A9A 




USROUT 


2 AC 5 




VAL 


24ED 




VARPTR 


443 C 




VERIFY 


0458 


058G 


VIDEO 


000B 




WHERE 



String parameter pointer 

(Bcmd CEH) 
Subtract double 
(HL) - FPA1 -> FPA1 
Integer subtract 
Subtract single precision 
Jump to system start address 
System entry point 
Tab( (Bcmd BCH) 
Tan (Bcmd E3H) 
DBL: 10.0 

TIME$: (DBcmd C7H) 
Move current TIME to 8-byte HL buffer 
Type mismatch error 
Transfer address for system 
TRON - AF, TROFF - 
Floppy disk track register 
Troff (Bcmd 97H) 
Tron (Bcmd 96H) 
DOS routines 

Change state of an interrupt task 
Turn off an interrupt task 
SNG: 6.28319 (2 PI) / BCDE 
SNG: 6.28319 (2 PI) 
Variable type for FPA2 

Current variable type (8=DBL, 4«SGL, 3=STR, 2*INT) 
Variable types for each letter A-Z 
Unprintable error 
Undefined line error 
Using (Bcmd BFH) 
Usr (Bcmd C1H) 
USR function address 
Put "USR'' function argument in HL 
Make HL output of 'USR' call 
Val (Bcmd F5H) 
Varptr (Bcmd COB) 
Write and verify a file write 
Video display driver 
Resolve Relocation Address 
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01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01135 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 



************************************************ 



LC: Lower Case Driver 
Copyright (c) 1980 
Insiders Software Consultants 
PO Box 2441, Dept. LC 
Springfield, VA 22152 



************************************************ 

******** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******** 



This lowercase driver is intended to replace the 
driver currently offered by Radio Shack. It 
provides UPPER/ lower case, auto repeat, debounce, 
JKL (screen print option), print switch (output to 
screen and line printer at the same time), re-boot 
switch, and control key (@) providing control codes 
from the keyboard. 
Current definition of special characters: 

Sh. CLEAR=Underline 

CTL-CLEAR=Linepr inter switch 

Sh. BREAK=UPPER CASE LOCK 

CTL-BREAK=REBOOT S 

CTL-UPARR= Circumflex (*) 

CTL-L.ARR«Le£t Curly ({) 

Up Arr =Left bracket 

Sh. R.ARR=Right Bracket (3) 

CTL-R,ARR=Right Curly (>) 

CTL-Zero -At-sign (@) 



Note 



=FS (1CH) 

=GS (1DH) 

=RS (1EH) 

=US (1FH) 

^Backslash 

=0R (7CH) 

=DEL (7FH) 

=Tilde <~) 

=Pause (Used to be shift-@) 
The codes can be changed to suit your needs 
by changing the values in the ASCII table. 



CTL-1 
CTL-2 
CTL-3 
CTL-4 
CTL-5 
CTL-6 
CTL-7 
CTL-8 
CTL-9 
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401E 
4016 
7000 
7000 



7000 21003C 

7003 46 

7004 3EFF 

7006 77 

7007 BE 

7008 70 

7009 2821 



700B 
700E 
700F 
7011 
7012 
7014 
7017 
7019 
701G 
701E 
7021 
7023 
7026 



215F71 

7E 

EE06 

77 

3EG9 

32DD71 

3EC3 

32D470 

3E58 

32D570 

3E04 

32D670 

1804 



01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 



CRTADR EQU 

KBDADR EQU 

ORG 

PLG EQU 



401EH 
4016H 
7000H 
$ 



; Video Driver Address 
jKeyfaoard Driver Addr. 
;MAY BE CHANGED 
; Entry point 



j ******** 

;* The next two lines MUST BE ADDED if you are 

;* running under the NEWDOS (not NEWDOS80) disk 

J* operating system. They disable the NEWDOS 

;* JKL function to avoid a conflict between the 

;* DOS and the lowercase driver 
j ******** 

; LD HL,43B5H 

; LD (HL),0C9H jNEWDOS ONLY; 

j ******** 

;* Check for bit-6 static RAM chip present. 

i* If it is not, no lowercase display. 

;* Machine will be locked into UPPERCASE only. 



LD 
LD 
LD 
LD 
GP 
LD 



HL,3C00H 

B,(HL) 

A,0FFH 

(HL),A 

(HL) 

(HL),B 

Z,LCM0D 



;Begin of video memory 
;Get value at location 
;A11 bits set in 'k' 
; Store in video mem 
;CP mem w/ value stored 
jRestore original value 
;If ~ t RAM #6 present. 



JR 
******** 

* No LC mod present or active. Disable lowercase 
functions 



;* 

I ******** 

LD 



LD 

XOR 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

JR 



HL,UCLS+1 
A,(HL) 
6 

(HL),A 
A,0C9H 
(UCL0CK),A 
A,0C3H 
(N0LP),A 
A,58H 
(N0LF+1),A 
A 4 

(NOLP+2) ,A 
LCMOD 



; Addr ess of conversion JR 

;Get value 

;Set uppercase mode 

;L0CK UPPER 

;LD A, RET 

; No. LOCK toggle 

;LD A,JP 

;Disable new VIDEO driver 

;Place a JP 0458H to the 

;01d video driver 



;Execute relocation 
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7028 0000 

702A 0000 

702C 019501 

702F 2AB140 

7032 B7 

7033 ED42 
7035 222A70 
7038 01BA70 
703B B7 
703G ED42 

703E 222870 



7041 DD216970 
7045 DD6601 
7048 DD6E00 
704B 7D 
704C B4 
704D 2838 
704F E5 
7050 FDE1 
7052 FD6E00 

7055 FD6601 
7058 ED5B2870 
705C 19 
705D FD7500 
7060 FD7401 
7063 DD23 
706 5 DD23 
7067 18DC 



01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 



DIFF DEFW 

LOAD DEFW 

LCMOD LD BC, ZEND-START 

LD HL,(40B1H) 

OR A 

SBC HL,BC 

LD (L0AD),HL 

LD BC, START 

OR A 

SBC HL,BC 

(DIFF),HL 



LD 

5 ******** 
• * 



;Relocation constant 

;Load address 

;Length of driver 

;Get top of memory 

;For DOS, change to 4049H 

;Determine load address 
;Store load address 
;Load the start address 

;Determine relocation 

; constant 

;Store relocation constant 



;* 
;* 

;* 

• * 
i 

•* 

• * 

» 

■ * 

• ******** 



This next section uses a relocation table to 

adjust the absolute addresses found in the 
lowercase driver. The table contains the address 
of a hex address that must be adjusted before the 
program is moved to its new location in high 
memory. This is done by adding the relocation 
constant to the current value, and restoring the 
new value. 



RELOC 
RELOGT 



LD 

LD 

LD 

LD 

OR 

JR 

PUSH 

POP 

LD 

LD 

LD 

ADD 

LD 

LD 

INC 

INC 

JR 



IX,RTABLE 

H,(IX+1) 

L,(IX) 

A,L 
H 

Z,DREL0C 

HL 

IY 

L,(IY) 

H,(IY+1) 

DE,(DIFF) 
HL,DE 
(IY),L 
(IY+1),H 

IX 
IX 
RELOGT 



;Load addr of table 
;P/U MSB of address 
;P/U LSB of address 
;Check for end-table=0000H 

;If end, DONE 
;LD IY,HL 

;Get absolute address 
; from memory 

;Get relocation constant 
;Correct abs. addr. 
;Address back to memory 

;Next table location 

;Loop till end of table 
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02210 


. ******** 








02220 


;* 


Relocation Table 






02230 


********* 






7069 0671 


02240 : 


RTABLE 


DEFW 


REL1+1 




706B 0D71 


02250 




DEFW 


REL2+2 




706D 1171 


02260 




DEFW 


REL3+2 




706F 3C71 


02270 




DEFW 


REL4+2 




7071 4071 


02280 




DEFW 


REL5+2 




7073- 8D71 


02290 




DEFW 


REL6+1 




7075 A271 


02300 




DEFW 


NOSHFT+1 




7077 B471 


02310 




DEFW 


REL7+2 




7079 B871 


02320 




DEFW 


REL8+2 




707B C371 


02330 




DEFW 


REL9+1 




707D DE71 


02340 




DEFW 


UCL0CK+1 




707F E771 


02350 




DEFW 


LPTOO+l 




7081 AC70 


02360 




DEFW 


REL0+1 




7083 B270 


02370 




DEFW 


REL10+1 




7085 0000 


02380 
02390 




DEFW 





;End of table 




02400 


. ******** 

> 








02410 


.* 


Relocation Complete 






02420 


********* 

3 






7087 2A2A70 


02430 DRELOC 


LD 


HL,(L0AD) 


;Get load address 


708A 2B 


02440 




DEC 


HL 


jGet new top of raetnor 


708B 22B140 


02450 




LD 


(40B1H).HL 


;Save TOPMEM 


708E 224940 


02460 




LD 


(4049H) ,HL 


;Save HIGH$ 


7091 11CEFF 


02470 




LD 


DE,-50 




7094 19 


02480 




ADD 


HL,DE 


; CLEAR 50 


7095 22A040 


02490 




LD 


(40A0H) ,HL 


;Save string area 




02500 


********* 

> 








02510 


** 


Move the program to 


the new location 




02520 


- ******** 
1 






7098 ED5B2A7C 


1 02530 




LD 


DE,(L0AD) 


;Get destination 


709G 21BA70 


02540 




LD 


BX , START 


;LD start address 


709F 019501 


02550 




LD 


BC, ZEND-START ;LD length of driver 


70A2 EDBO 


02560 




LDIR 




;M0VE! 


70A4 3ADD71 


02570 




LD 


A.(UCLOCK) 


;Is there LC mod? 


70A7 FEC9 


02580 




CP 


0C9H 




70A9 2806 


02590 




JR 


Z.REL10 


;JP if no LC 




02600 


********* 
> 








02610 


** 
J 


Place 


the address of 


: the new video driver 




02620 


** 
J 


in the 


video DCB to 


activate driver. 




02630 


* ******** 






70AB 21BE70 


02640 


RELO 


LD 


HL.VPATCH 


;New video driver add 


70AE 221E40 


026 50 




LD 


(CRTADR) ,HL 


;Place in video DCB 
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02660 ;******** 








02670 ;* 


Patch 


the keyboard DCB 


with the address 




02680 ;* 


of the 


new keyboard dr: 


Lver 




026 90 ;******** 






70B1 21F270 


02700 REL10 


LD 


HL,KPATCH 


;Address of keyboard driver 


70B4 221640 


02710 


LD 


(KBDADR) ,HL 


;SAVE NEW KBRD DRIVER 


70B7 C3CC06 


02720 


JP 


06CCH 


;Done. GOTO BASIC 




02730 ;******** 








02740 ;* 


Lowercase driver 






027 50 ;******** 






70BA 


02760 START 


EQU 


$ 


;Start address 


70BA 0000 


02770 SAVBC 


DEFW 





; 'BC' save area 


70BG 0138 


02780 SAVDE 


DEFW 


3801H 


; 'DE' save area 


4018 


02790 CNTR 


EQU 


401 8H 


;Counter address 


0500 


02800 PERI 
02810 


EQU 


500H 


;Repeat counter 

; # loops before 1st repeat 


0050 


02820 PER2 


EQU 


50H 


; Inter-character repeat 
; count 




02830 ;******** 








02840 ;* 


Repeat 


counters may be 


adjusted up or down to 




02850 ;* 


suit the taste of the i 


user. If repeat is too 




02860 ;* 


fast, 


increase value. 


If repeat is too slow, 




02870 ;* 


decrea 


se value. 






02880 ;******** 






3880 


02890 SHIFT 


EQU 


3880H 


;Shift key location 


3801 


02900 CONTRL 


EQU 


3801H 


; Control key= @ 


70BE 1814 


02910 VPATCH 


JR 


NOLP 


;Printer switch @ Vpatch+1 


70C0 C5 


02920 


PUSH 


BC 


;0utput to printer too 


70G1 F5 


02930 


PUSH 


AF 




70C2 79 


02940 


LD 


A,C 


;Get char to output 


70C3 FE20 


02950 


CP 


20H 


; Check for control codes 


70C5 3008 


02960 


JR 


NC,LPIT 


;If not carry, output char 


70C7 FE07 


02970 


CP 


7 




70C9 3807 


02980 


JR 


C,NOVALD 


;If <7, not valid 


70GB FEOE 


02990 


CP 


0EH 




70CD 3003 


03000 


JR 


NC,NOVALD 


;If >13, not valid 


70CF GD3B00 


03010 LPIT 


CALL 


3BH 


; Output to LP 


70D2 Fl 


03020 NOVALD 


POP 


AF 




70D3 CI 


03030 


POP 


BC 




70D4 DD6E03 


03040 NOLP 


LD 


L,<IX+3) 


;Video patch for LC letters 


70D7 DD6604 


03050 


LD 


H,(lX+4) 


;Get cursor location 


70DA DA9A04 


03060 


JP 


C,49AH 


;Jp if control code 


70DD DD7E05 


03070 


LD 


A,(lX+5) 


;Get cursor character 


70E0 B7 


03080 


OR 


A 




70E1 2801 


03090 


JR 


Z,$+3 


;Skip next if no char 


70E3 77 


03100 


LD 


(HI), A 


;Restore char at cursor 


70E4 79 


03110 


LD 


A,C 


;Restore character 


70E5 FE20 


03120 

03130 


CP 


20H 


;JP if control code 
: to ROM driver 
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70E7 DA0605 


03140 




JP 


C,506H 




70EA FE80 


03150 




CP 


80H 




70EC D2A604 


03160 




JP 


NC,4A6H 


;Jump to 04A6 if >80 


70EF C37D04 


03170 




JP 


47DH 


; Entry to printing chars 




03180 


• ******** 








03190 


• * 

> 


Keyboard driver 






03200 


• ******** 






70F2- 213640 


03210 


KPATCH 


LD 


HL,4036H 


jKB Save area 


70F5 110138 


03220 




LD 


DE,3801H 


;KB Scan area 


70F8 0E00 


03230 




LD 


C,0 


;Init key counter 


70FA 1A 


03240 
03250 


KLOOP 


LD 


A,(DE) 


;Scan keyboard search for 
; new characters 


70FB 47 


03260 




LD 


B,A 


;Save scan value 


70FG AE 


03270 




XOR 


(HL) 


; Check for previous 


70FD 70 


03280 




LD 


(HL),B 


; Store new scan 


70FE AO 


03290 




AND 


B 




7 OFF 2032 


03300 




JR 


NZ, KPRSD 


;JP IF NEW KEY 


7101 OC 


03310 




INC 


C 


;Next count 


7102 2C 


03320 




INC 


L 


;Next location decode 
; matrix 


7103 CB03 


03330 




RLC 


E 


;Next addr in KEYMEM 


7105 F2FA70 


03340 


REL1 


JP 


P, KLOOP 


;Loop if not 8 done 


7108 2A1840 


03350 




LD 


HL,(CNTR) 


;Test repeat 


710B ED4BBA70 


03360 


REL2 


LD 


BC,(SAVBC) 


;Get old BC 


710F ED5BBG70 


03370 


REL3 


LD 


DE,(SAVDE) 


;Get old DE 


7113 1A 


03380 




LD 


A,(DE) 


;Get key scan 


7114 AO 


03390 




AND 


B 




7115 2007 


03400 




JR 


NZ , CHKCNT 


;See if still pressed 


7117 210005 


03410 




LD 


HL,PER1 


;No key. RESET count 


711A 221840 


03420 




LD 


(CNTR),HL 


;Reset counter 


711D G9 


03430 




RET 






711E 2B 


03440 


CHKCNT 


DEC 


HL 


; Check counter 


711F 08 


03450 




EX 


AF,AF' 




7120 7C 


03460 




LD 


A,H 




7121 B5 


03470 




OR 


L 




7122 2806 


03480 




JR 


Z,RPT 


;If -0, repeat key 


7124 08 


03490 




EX 


AF,AF' 




7125 221840 


03500 




LD 


(CNTR),HL 


;Save counter 


7128 AF 


03510 




XOR 


A 


;Value ret-0 


7129 C9 


03520 




RET 






712A 08 


03530 


RPT 


EX 


AF,AF' 




712B 215000 


03540 




LD 


HL,PER2 




712E 221840 


03550 




LD 


(CNTR),HL 


;Set PER2 count 


7131 1806 


03560 




JR 


KPRSD1 


;Key repeat 


7133 210005 


03570 KPRSD 


LD 


HL,PER1 


jRestore repeat to PERI 


7136 221840 


03580 




LD 


(CNTR),HL 




7139 47 


03590 KPRSD1 


LD 


B,A 




713A ED43BA70 


03600 REL4 


LD 


(SAVBC),BC 


;Save 'BC' for repeat 


713E ED53BC70 


03610 


REL5 


LD 


(SAVDE),DE 


;Save 'DE' for repeat 
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03620 


.*#****** 

> 








03630 


;* 


Decode 


matrix value 






03640 


• ******** 






7142 CB01 


036 50 




RLC 


C 


;*2 


7144 CB01 


03660 




RLC 


C 


;*4 


7146 CB01 


03670 




RLC 


C 


;*8 


7148 OC 


03680 


KING 


INC 


C 




7149 OF 


03690 




RRCA 






714A 30FG 


03700 




JR 


NC,KINC 




714C OD 


03710 




DEC 


C 


;Adjust for over-add 


714D 3A8038 


03720 




LD 


A, (SHIFT) 


;See if <SHIFT> 


7150 47 


03730 




LD 


B,A 


;Store for later 


7151 3A0138 


03740 




LD 


A,(CONTRL) 


;See if control 


7154 5F 


03750 




LD 


E,A 


;Store for later 


7155 79 


03760 




LD 


A,C 


^Restore and adjust value 


7156 C640 


03770 




ADD 


A,40H 




7158 FE60 


03780 




CP 


60H 




715A 3011 


03790 




JR 


NC, NOALPH 


;JP if non-alpha 


715C CBOB 


03800 




RRC 


E 




715E 3004 


03810 


UCLS 


JR 


NC, NOCTRL 


jUppercase lock here 


7160 D640 


03820 




SUB 


40H 


; Convert uppercase 


7162 1845 


03830 




JR 


FINIS 


;Done 


7164 4F 


03840 


NOCTRL 


LD 


C,A 




7165 CB08 


03850 




RRC 


B 


;Test for shift 


7167 3840 


03860 




JR 


C, FINIS 


;JP if shift 


7169 EE20 


03870 




XOR 


20H 


;Case switch 


716B 183C 


03880 




JR 


FINIS 






03890 


• ******** 








03900 


• * 


Adjust 


control codes 


and test for LOOKUP 




03910 


♦ ******** 
> 






716D D670 


03920 


NOALPH 


SUB 


7 OH 


;Non-alpha 


716F 3020 


03930 




JR 


NC, LOOKUP 




7171 C640 


03940 




ADD 


A,40H 




7173 FE3C 


03950 




CP 


3CH 




7175 3802 


03960 




JR 


C,NOCHG 




7177 EE10 


03970 




XOR 


10H 




7179 CB08 


03980 


NOCEG 


RRC 


B 




717B 3004 


03990 




JR 


NC, CKCTRL 




717D EE10 


04000 




XOR 


10H 




717F 1828 


04010 




JR 


FINIS 




7181 CBOB 


04020 


CKCTRL 


RRC 


E 


;Check for control ({§) 


7183 3024 


04030 




JR 


NC, FINIS 


;Done if no control 


7185 FE3A 


04040 




CP 


3AH 




7187 3020 


04050 




JR 


NC, FINIS 




7189 D62F 


04060 




SUB 


2FH 




718B C8 


04070 




RET 


Z 




718C 210672 


04080 


REL6 


LD 


HL, TABLE 2-1 




718F 1813 


04090 




JR 


NOSHFT+3 
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04100 


. ******** 

> 










04110 


• * 


Lookup 


key scan in table 


■ • 






04120 


• ******** 

3 






7191 


57 


04130 


LOOKUP 


LD 


D,A 


; TABLE LOOKUP ROUTINE 


7192 


07 


04140 




RLCA 






7193 


82 


04150 




ADD 


A,D 




7194 


CB08 


04160 




RRC 


B 




7196 


3003 


04170 




JR 


NC,CTRL1 




7198- 


3G 


04180 




INC 


A 


;Shi£t character 


7199 


1806 


04190 




JR 


NOSHFT 




719B 


CBOB 


04200 


CTRL1 


RRC 


E 




719D 


3002 


04210 




JR 


NC, NOSHFT 




719F 


3C 


04220 




INC 


A 


; Control character 


71A0 


3C 


04230 




INC 


A 




71A1 


21EF71 


04240 


NOSHFT 


LD 


HL, TABLE 


;Begin of table 


71A4 


5F 


04250 




LD 


E,A 




71A5 


1600 


04260 




LD 


D,0 




71A7 


19 


04270 




ADD 


HL,DE 


;Add offset in 'A' 


71A8 


7E 


04280 




LD 


A,(HL) 


;Get value 


71A9 


F5 


04290 


FINIS 


PUSH 


AF 


;ALMOST FINISHED 


71AA 


013303 


04300 




LD 


BC,0333H 


;Debounce count 


7 IAD 


OB 


04310 


DBNCE 


DEC 


BC 




71AE 78 


04320 




LD 


A,B 




71AF 


Bl 


04330 




OR 


C 




71B0 


20FB 


04340 




JR 


NZ, DBNCE 




71B2 


ED4BBA70 


04350 


REL7 


LD 


BC,(SAVBC) 




71B6 


ED5BBC70 


04360 


REL8 


LD 


DE,(SAVDE) 




71BA 


1A 


04370 




LD 


A,(DE) 


;Key still pressed? 


71BB AO 


04380 




AND 


B 




71BG 


2003 


04390 




JR 


NZ,N0BNCE 


;JP if YES 


71BE 


Fl 


04400 




POP 


AF 


;Key bounced 


71BF AF 


04410 




XOR 


A 


;No character 


71C0 


C9 


04420 




RET 






71C1 


Fl 


04430 


NOBNCE 


POP 


AF 


;Good key 


71C2 


CD1172 


04440 


REL9 


CALL 


JKL 


;SCREEN PRINT? 


71G5 


4F 


04450 




LD 


C,A 




71C6 


B7 


04460 




OR 


A 




71C7 


FO 


04470 




RET 


P 


; RETURN IF NO SPECIAL C 






04480 


j******** 










04490 


• * 


Specia 


1 characters have 


bit 7 set. The special 






04500 


;* 


command number is determined by what OTHER bit 






04510 


;* 


is also set by rotating 


right until a carry. 






04520 


j ******** 






71C8 


OF 


04530 




RRCA 






71C9 


3812 


04540 




JR 


C,UCL0CK 


;81H Is uppercase lock 


71CB 


OF 


04550 




RRCA 






71CC 


3818 


04560 




JR 


C,LPTOO 


;82H is lineprinter swi 


71CE 


OF 


04570 




RRCA 






71CF 


300A 


04580 




JR 


NC,NEXT 


;JR if not 84H, REBOOT 



B-8 



Lowercase Driver 



71D1 3A4038 
71D4 E604 
71D6 20F9 
71D8 C30000 



71DB AF 
71DC C9 



71DD 215F71 
71E0 7E 
71E1 EE06 
71E3 77 
71E4 AF 
71E5 C9 



71E6 21BF70 
71E9 7E 
71EA EE14 
71EC 77 
71ED AF 
71EE C9 



71EF OD 
71F0 OD 
71F1 OD 
71F2 IF 
71F3 5F 
71F4 82 
71F5 01 
71F6 81 
71F7 84 
71F8 5B 
71F9 IB 
71FA 5E 



04590 

04600 

04610 

04620 

04630 

04640 

04650 

04660 

04670 

04680 

04690 

04700 

04710 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 

04850 

04860 

04870 

04880 

04890 

04900 

04910 

04920 

04930 

04940 

04950 

04960 

04970 

04980 

04990 

05000 

05010 

05020 

05030 

05040 

05050 

05060 



;Wait for <BREAK> released 

;Loop if <BREAK> down 
;84H BOOT. 



WAITBR LD A,(3840H) 
AND 4 
JR NZ, WAITBR 

JP 0000H 

• ******** 

;* Note: Could define keys 88H,90H,0A0H,0C0H as 
;* other special keys by performing a RRCA and 

;* jumping on CARRY to the processing routine 
• ******** 

NEXT XOR A 

RET 

• ******** 
» 

;* Uppercase lock/unlock toggle 

. ******** 

U CLOCK LD 
LD 



HL,UCLS+1 
A,(HL) 
6 
(HL),A 

A 



;Key undefined 



;JR offset location 



HL,VPATCH+1 
A,(HL) 
14H 
(HL),A 

A 



XOR 

LD 

XOR 

RET 

• ******** 
» 

;* Line printer toggle 

> ******** 

LPTOO LD 
LD 
XOR 

LD 

XOR 

RET 

. ******** 

;* Keyboard Lookup Table 

;* Format= 

• * 

• * 

5 

■* 

J 

• ******** 

TABLE DEFB 0DH 

DEFB 0DH 

DEFB 0DH 

DEFB 1FH 

DEFB 5FH 

DEFB 82H 

DEFB 01H 

DEFB 81H 

DEFB 84H 

DEFB 5BH 

DEFB 27 

DEFB 5EH 



;Return no value 



;Video patch JR offset 



;XOR with offset 
;Return no value 



Key unshifted 
Key Shifted 
Key w/ CONTROL 

; ENTER 



CLEAR 



BREAK 



(UNDERLINE) 
(LPTOO) 



(UCL0CK) 
BOOT! 

UP ARR.(L BRACK) 
ESC 

(Circum) 
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71FB OA 
71FG 1A 
71FD 00 
71FE 08 
71FF 18 

7200 7B 

7201 09 

7202 5D 

7203 7D 

7204 20 

7205 20 

7206 20 



7207 40 

7208 1C 

7209 ID 
720A IE 
720B IF 
720C 5C 
720D 7C 
720E 7F 
7 20F 7E 

7210 60 



7211 
7212 
7213 
7216 
7218 
7219 
721A 
721B 
721C 
721D 
7220 
7221 



E5 
67 

3A0238 

FE1C 

7C 

El 

CO 

E5 

D5 

21003G 

7D 

E63F 



05070 

05080 

05090 

05100 

05110 

05120 

05130 

05140 

05150 

05160 

05170 

05180 

05190 

05200 

05210 

05220 

05230 

05240 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05351 

05360 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 



DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

. ******** 
> 

;* Specia 

• ******** 

TABLE2 DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
- ******** 

;* JKL: 

• * 

s 

;* 

;* Break, 

. ******** 

JKL PUSH 
LD 
LD 
GP 
LD 
POP 
RET 
PUSH 
PUSH 
LD 

JKL OOP LD 
AND 



OAH 

1AH 



8H 

18H 

7BH 

9 

5DH 

7DH 

20H 

20H 

20H 



;D. ARR.(CNTRL) 
; (LF) 

L. ARR (BSP) 

(CANCEL) 
(L CURLY) 

R. ARR (TAB) 

(R BRACK) 
(R CURLY) 

SPACE 



1 table for control 0-9 



40H 
1CH 
1DH 
1EH 
1FH 
5CH 
7CH 
7FH 
7EH 
60H 



CTLO-AT 
CTL1-FS 

2-GS 

3-RS 

4-US 

5-BACK SLASH 

6 -OR 

7-DEL 

8-TILDE 

9-PAUSE 



Presing J,K,& L keys at the same time will 
send what is on the screen to the 
printer. 
Clear, and Enter will abort output 



HL 
H,A 

A,(3802H) 

1CH 

A,H 

HL 

NZ 

HL 

DE 

HL,3C00H 

A,L 

3FH 



;Save 'HL' 

;JKL? 

; Return if no JKL 

;First screen location 
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7223 3E0D 


05500 


JKLCR 


LD 


A,0DH 




7225 CC3B00 


05510 




CALL 


Z,3BH 


;If EOL, output CR 


7228 7E 


05520 




LD 


A,{HL) 


;Get screen value 


7229 23 


05540 




INC 


HL 




7 22A FE80 


05560 




CP 


80H 




722G 3802 


05570 




JR 


C, JKLOUT 




722E 3E2E 


05580 




LD 


A,'.' 


;Replace graphics with ' 


7230 F5 


05590 


JKLOUT 


PUSH 


AF 




7231 3A4038 


05600 




LD 


A,(3840H) 




7234 E607 


05610 




AND 


7 




7236 2006 


05620 




JR 


NZ, JKLSTP 


jStop if ENT/CLR/BRK 


7238 Fl 


05630 




POP 


AF 




7239 CD3B00 


05640 




CALL 


3BH 


;0utput character 


723C 18E2 


05650 




JR 


JKLOOP 


;Loop til done 


723E 3A4038 


05660 


JKLSTP 


LD 


A,(3840H) 




7241 E607 


05670 




AND 


7 




7243 20F9 


05680 




JR 


NZ, JKLSTP 


;Wait til abort released 


7245 3E0D 


056 90 




LD 


A,0DH 


;Send CR 


7247 CD3B00 


05700 




CALL 


3 BR 




724A Fl 


05710 




POP 


AF 




724B Dl 


05720 


JKLST 


POP 


DE 




724C El 


05730 




POP 


HL 




724D AF 


05740 




XOR 


A 




724E C9 


05750 




RET 




;JKL done 


724F 


05760 


ZEND 


EQU 


$ 


;End of program 


7000 


05770 




END 


PLC 




00000 Total 


errors 
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CRKCNT 


711E 


CKCTRL 


7181 


CNTR 


4018 


CONTRL 


3801 


CRTADR 


401E 


CTRL1 


719B 


DBNCE 


7 IAD 


DIFF 


7028 


DRELOC 


7087 


FINIS 


71A9 


JKL 


7211 


JKLGR 


7223 


JKLOOP 


7220 


JKLOUT 


7230 


JKLST 


724B 


JKLSTP 


723E KBDADR 


4016 


KINC 


7148 


KLOOP 


70FA 


KPATGH 


70F2 KPRSD 


7133 


KPRSD1 


7139 LCMOD 


702G LOAD 


702A 


LOOKUP 


7191 


LPIT 


70CF 


LPTOO 


71E6 


NEXT 


71DB 


NOALPH 


716D 


NOBNCE 


71CI 


NOCHG 


7179 


NOCTRL 


7164 


NOLP 


70D4 


NOSHFT 


71A1 


NOVALD 


70D2 


PERI 


0500 


PER2 


0050 


PLC 


7000 


RELO 


70AB 


REL1 


7105 


REL10 


70B1 


REL2 


710B 


REL3 


710F 


REL4 


713A 


REL5 


713E 


REL6 


718C 


REL7 


71B2 


REL8 


71B6 


REL9 


71C2 


RELOG 


7041 


RELOGT 


7045 


RPT 


712A 


RTABLE 


706 9 


SAVBC 


70BA 


SAVDE 


70BC 


SHIFT 


3880 


START 


70BA 


TABLE 


71EF 


TABLE2 


7207 


UCLOCK 


71DD 


UCLS 


715E 


VPATGH 


70BE 


WAITBR 


71D1 


ZEND 


724F 
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41E2 
41E2 



C31453 



021E 
01F8 
01FE 
032A 
1BB3 
06 CC 
1997 
022C 
1E5A 
40DF 
4288 
20FE 



40DF 
40DF 
3C00 
3C00 



CC06 

2A 

2A 2A 2A 

Ik Ik Ik 

2k Ik Ik 

2k 2k 2k 

2A 2A 2A 



01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
2A 2A 
2A 2A 
2A 2A 
2A 2A 



***************************************** 



Alternate SYSTEM Loader 

By Insiders Software 

Consultants, Inc. 
PO Box 2441, Dept. SYS 
Springfield, Virginia 22152 



***************************************** 

ORG 41E2H ; SYSTEM Hook 

JP START ;Patch to execute 

; new loader. 

. ******** 
> 

;* ROM routines that we will use 

- ******** 

CLRCFF EQU 



CTOFF 

CT0N 

DSPCHR 

QINPUT 

BASIC 

SNERR 

CSTAR 

CONVRT 

TRXADR 

STACK 

OUTCR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



******** 

* SYSTEM 

******** 

ORG 
DEFW 

ORG 
DEFM 

2A 2A 2A 

2A 2A 2A 

2A 2A 2A 

2A 2A 2A 



021EH 

01F8H 
01FEH 
032AH 

1BB3H 
06CCH 
1997H 

022CH 
1E5AH 

40DFH 
4288H 
2 OF EH 



;CLR Cassette Flip Flop 
;Cassette off 
;Cassette on 

;Display character 

; Print ? in input 

;BASIC entry point 

; Syntax Error 

; Change star in corner 

;DEC ASCII to BINARY 

;Transfer Address location 

; Stack pointer set 

;Output a CR to device 



TRAADR 

06CCH 

3C00H 

'************************************' 



;Default transfer to BASIC 



C-l 



SYSTEM Loader 



3G40 




01330 






ORG 


3C40H 




3C40 


2A 


01340 






DEFM 


'* Alternate SYSTEM Loader *' 




20 20 20 


20 20 


20 


41 


6C 








74 65 72 


6E 61 


74 


65 


20 








53 59 53 


54 45 


4D 


20 


4C 








6F 61 64 65 72 


20 


20 


20 








20 20 2A 














3G80 




01350 






ORG 


3C80H 




3C80 


2A 


01360 






DEFM 


'* Insiders 


Software Consultants *' 




20 20 49 


6E 73 


69 


64 


65 








72 73 20 


53 6F 


66 


74 


77 








61 72 65 


20 43 


6F 


6E 


73 








75 6C 74 


61 6E 


74 


73 


20 








20 20 2A 














3CG0 




01370 






ORG 


3CC0H 




3CC0 


2A 


01380 






DEFM 


'tciciticycic'kic'kific'A 


^-frkifii'k'A'ft'ick'k'k'idckicfiick'kicAidc'k ' 




2A 2A 2A 


2A 2A 


2A 


2A 


2A 








2A 2A 2A 


2A 2A 


2A 


2A 


2A 








2A 2A 2A 


2A 2A 


2A 


2A 


2A 








2A 2A 2A 


2A 2A 


2A 


2A 


2A 








2A 2A 2A 














5200 




01390 






ORG 


5200H 




5200 


CD7552 


01400 


SYSENT CALL 


GETADR 


jGet address from tape 


5203 


22DF40 


01410 






LD 


(TRAADR),HL 


;Load into transfer addr 


5206 


CDF801 


01420 






CALL 


GTOFF 


;Cassette off 


5209 


318842 


01430 


SYSTEM LD 


SP, STACK 


;Set stack pointer 


520C 


CDFE20 


01440 






CALL 


OUTCR 


; Output a CR 


520F 


219552 


01450 






LD 


HL,SYSCMD 


; Command msg 


5212 


CD8C52 


01460 






CALL 


OUTLIN 


;Output msg 


5215 


CDB31B 


01470 






CALL 


QINPUT 


;Get input from user 


5218 


DACC06 


01480 






J? 


C } BASIC 


; BASIC if <BREAK> 


521B 


D7 


01490 






RST 


16 


;Test buffer 


521G 


GA9719 


01500 






JP 


Z,SNERR 


;If nothing, syntax err 


521F 


FE2F 


01510 






CP 


7' 


;Goto address 


5221 


GA7E52 


01520 






JP 


Z,SYSG0 




5224 


E5 


01521 






PUSH 


HL 




5225 


21A652 


01522 






LD 


HL, TITLE 




5228 


CD8C52 


01523 






CALL 


OUTLIN 




522B 


El 


01524 






POP 


HL 




522C 


CD 20 53 


01550 






CALL 


CTONRL 


;Cassette on/read leader 


522F 


GD3653 


01560 


GETTL 


CALL 


CRBYTE 




5232 


FE55 


01570 






CP 


55H 


;Search for title byte 


5234 


20F9 


01580 






JR 


NZ, GETTL 


;Loop for title 


5236 


0606 


01590 






LD 


B,6 


;Max num chars in title 


5238 


CD3653 


01640 


GETTL] 


L CALL 


CRBYTE 


;Get title byte 


523B 


2A2040 


01641 






LD 


HL,(4020H) 


; CURSOR POSITION 


523E 


77 


01642 






LD 


(HL),A 




523F 


23 


01643 






INC 


HL 




5240 


222040 


01644 






LD 


(4020H) ,HL 




5243 


10F3 


01660 






DJNZ 


GETTL 1 
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5245 
5248 
524B 
524D 
5250 
5252 
5254 
5257 
5258 
525B 
525G 
525D 
5260 
5261 
5262 
5263 
5264 
5266 
5269 
526A 
526C 
526F 
5272 
5275 
5278 
5279 
527G 
527D 
527E 
527F 
5282 
5283 
5284 
5287 
528A 
528B 
528C 
528D 
528E 
528F 
5292 
5293 
5295 
5297 



52A5 



GD2C02 

CD36 53 

FE78 

CA0052 

FE3G 

20F4 

CD3653 

47 

CD7552 

85 

4F 

CD3653 

77 

23 

81 

4F 

10F7 

CD36 53 

B9 

28D9 

21BA52 

CD8C52 

C30952 

CD3653 

6F 

GD3653 

67 

C9 

EB 

2ADF40 

EB 

D7 

C45A1E 

C20952 

EB 

E9 

7E 

B7 

C8 

CD2A03 

23 

18F7 

OAOA 

53 

59 53 54 

6D 6D 61 

00 



01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

02000 

02010 

02020 

02030 

02040 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

45 4D 

6E 64 

02140 



GETREC CALL 

GETBLK GALL 
CP 
JP 
CP 
JR 

CALL 
LD 
CALL 
ADD 
LD 

BLKRD CALL 
LD 
INC 
ADD 
LD 
DJNZ 
CALL 
CP 
JR 
LD 
CALL 
JP 

GETADR CALL 
LD 

CALL 
LD 
RET 

SYSGO EX 
LD 
EX 
RST 
CALL 
JP 
EX 
JP 

OUTLIN LD 
OR 
RET 
CALL 
INC 
JR 

SYSCMD DEFW 
DEFM 

20 43 6F 



CSTAR 

CRBYTE 

78H 

Z,SYSENT 

3CH 

NZ , GETBLK 

CRBYTE 

B,A 

GETADR 

A,L 

C,A 

CRBYTE 

(HL),A 

HL 

A,C 

C,A 

BLKRD 

CRBYTE 

C 

Z, GETREC 

HL, CKSUM 

OUTLIN 

SYSTEM 

CRBYTE 

L,A 

CRBYTE 

H,A 

DE,HL 

HL,(TRAADR) 

DE,HL 

16 

NZ.CONVRT 

NZ, SYSTEM 

DE,HL 

(HL) 

A,(HL) 

A 

Z 

DSPCHR 

HL 

OUTLIN 

OAOAH 

'SYSTEM Command' 



;Change star 

;Get byte 

;Byte preceeding trans, adr 

;Byte preceeding load adr 

;Loop til block marker 

;Get number of bytes 

; Store number 

;Get load address 

;Add load addr to cksum 

;Save cksum in "C 

;Get data byte 

;Store in mem 

jlnc load address 

;Add previous cksum 

;Save new cksum 

;Loop thru data 

;Get cksum 

; Cksum match? 



; Cksum error 

;Get address from tape 
;Save LSB 
;Get MSB 



; System execute to addr 
;Get transfer address 
;Put in DE 

; Convert to val in DE 

; Switch addr to HL 
;Goto routine! 
;0utput a line to video 
;End? 



;Linefeeds 



DEFB 
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SYSTEM Loader 



52A6 
52A8 



52B9 
52BA 
52BB 



52CA 
52CC 
52CE 
52D0 
52D2 



52E9 
52EA 



5312 

5314 

5317 

53 1A 

531D 

5320 

5323 

5324 

5325 

5328 

532A 

53 2C 

532E 

5331 

5334 

5335 

5336 

5337 

5338 

533A 

533D 

533F 

5340 

5341 



0A0A 
50 

72 6F 
6F 61 
00 

OD 
43 

68 65 
65 72 
ODOO 
OAOA 
OAOA 
OAOA 
41 

6C 74 
20 53 
4C 6F 
OD 
20 

20 62 
64 65 
74 77 
6E 73 

73 2C 
ODOO 
CDC901 
21CC52 
CD8G52 
C30952 
CDFE01 
E5 

AF 

CD4253 

FEA5 

20F9 

3E2A 

323E3C 

323F3C 

El 

C9 

C5 

E5 

0608 

CD4253 

10FB 

El 

CI 

C9 



02150 

02160 

67 72 61 

64 69 6E 
02170 
02180 
02190 

63 6B 73 
72 6F 72 

02200 
02210 
02220 
02230 
02240 

65 72 6E 
59 53 54 
61 64 65 

02250 
02260 
79 20 49 
72 73 20 
61 72 65 
75 6C 74 
20 49 6E 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 



TITLE 

6D 20 

67 3A 

CKSUM 

75 6D 

21 

STRTM 



61 74 
45 4D 

72 



DEFW 
DEFM 



6G 
20 



DEFB 
DEFB 
DEFM 



20 



DEFW 
DEFW 
DEFW 
DEFW 
DEFM 



65 
20 



DEFB 
DEFM 



6E 73 
53 6F 
20 43 
61 6E 
63 2E 

START 



CTONRL 



CRLDR 



69 
66 
6F 
74 



CRBYTE 



CRBYTL 



DEFW 

GALL 

ID 

CALL 

JP 

CALL 

PUSH 

XOR 

GALL 

CP 

JR 

LD 

LD 

LD 

POP 

RET 

PUSH 

PUSH 

LD 

CALL 

DJNZ 

POP 

POP 

RET 



OAOAH 

'Program loading: ' 





ODH 

'Checksum error!' 



ODH 

OAOAH 

OAOAH 

OAOAH 

'Alternate SYSTEM Loader' 



ODH 



by Insiders Software Consultants, Inc. 



ODH 
01C9H 

HL, STRTM 

OUTLIN 

SYSTEM 

CTON 

HL 

A 

CRBIT 

0A5H 

NZ, CRLDR 

A,'*' 

(3C3EH),A 

(3C3FH)»A 

HL 

BC 
HL 
B,8 

CRBIT 
CRBYTL 
HL 
BC 



;Clear screen 
^Welcome message 
^Cassette on/read leader 

;Read bit 
;Sync. byte 

; Stars in corner 
;Put first star 
;Put second star 
;Restore HL 

;Read byte from cassette 



;Read bit from cassette 
;8 bits^byte 
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SYSTEM Loader 



5342 C5 


02510 


CRBIT 


PUSH 


BC 


;Read a bit 


5343 F5 


02520 




PUSH 


AF 




5344 DBFF 


02530 


SRTIMB 


IK 


A,(0FFH) 


; Search for timing bit 


5346 17 


02540 




RLA 






5347 30FB 


02550 




JR 


NC, SRTIMB 


;If no bit, try again 


5349 0641 


02560 




LD 


B,41H 


;First timing loop 


53 4B 10FE 


02570 




DJNZ 


$ 


;Delay 


534D CD1E02 


02580 




CALL 


CLRCFF 


;Clear cassette Flip-flop 


5350 06 50 


02590 




LD 


B,50H 


;Second delay 


5352 10FE 


02600 




DJNZ 


$ 


;Delay 


5354 0614 


02610 




LD 


B,14H 


;Redundant bit read 


5356 DBFF 


02620 


RBITR 


IN 


A,(0FFH) 


;Get bit 


5358 10FG 


02630 




DJNZ 


RBITR 


;Loop 


53 5A 47 


02640 




LD 


B,A 




535B Fl 


02650 




POP 


AF 


;Restore 'A' 


535C CB10 


02660 




RL 


B 


;Rotate high into carry 


53 5E 17 


02670 




RLA 




;Get bit to low order 


535F F5 


026 80 




PUSH 


AF 




5360 CD1E02 


026 90 




CALL 


CLRCFF 


; Clear CFF 


5363 Fl 


02700 




POP 


AF 




5364 CI 


02710 




POP 


BC 




5365 C9 


027 20 




RET 






5314 


02730 




END 


START 
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SYSTEM Loader 



00000 Total errors 



BASIC 


06 CC BLKRB 


525D CKSUM 


52BA 


CLRCFF 


021 E CONVRT 


1E5A CRBIT 


5342 


CRBYTE 


5336 CRBYTL 


53 3 A CRLDR 


5325 


CSTAR 


022G CTOFF 


01F 8 CTOK 


01FE 


CTONRL 


5320 DSPCHR 


03 2A GETADR 


5275 


GETBLK 


5248 GETREG 


5245 GETTL 


522F 


GETTLl 


5238 0UTCR 


20FE 0UTLIN 


528C 


QINPUT 


1BB3 RBITR 


5356 SNERR 


1997 


SRTIMB 


5344 STACK 


4288 START 


5314 


STRTM 


52CC SYSCMD 


5295 SYSENT 


5200 


SYSGO 


527E SYSTEM 


5209 TITLE 


52A6 


TRAADR 


40DF 
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Appendix D: ASCII Table 



Character Bex 



Decimal ASCII Use 



TRS-80 Use 



* * * * * 



Communications Control Characters 



* * * * * 



NUL 


00H 


00 


NULL 


NULL 


SOH 


01H 


01 


Start of Heading 


Break 


STX 


02H 


02 


Start of Text 


None 


m 


03H 


03 


End of Text 


None 


DOT 


04H 


04 


End of Transmission 


None 


ENQ 


05H 


05 


Enquiry 


None 


ACK 


06H 


06 


Acknowledge 


None 


BEL 


07H 


07 


Bell or Alarm 


None 


BS 


08 H 


08 


Backspace 


Backspace & erase 
previous character 


HT 


09H 


09 


Horizontal Tab 


Horizontal Tab 


LF 


OAH 


10 


Linefeed 


Translated to 
Carriage-return 


VT 


OBH 


11 


Vertical Tab 


Translated to 
Carriage-return 


FF 


OCH 


12 


Form feed (Top 
of Page) 


Translated to 
Carriage-return 


CR 


ODH 


13 


Carriage- re turn 


Carriage- return 


SO 


OEH 


14 


Shift Out of 


Turn on Cursor 



SI 

DLE 
DC1 

DC2 

DC3 

DC4 

NAK 

SYN 
ETB 

CAN 

EM 



Standard Character 

Set 
0FH 15 Shift Into Standard 

Character Set 
10H 16 Data Link Escape 

11H 17 Device Control 1 

(Transmit On) 
12H 18 Device Control 2 

(Paper Tape On) 
13H 19 Device Control 3 

(Transmit Off) 
14H 20 Device Control 4 

(Paper Tape Off) 
15H 21 Negative Acknowledge 

16H 22 Synchronous Idle 

17H 23 End of Transmission 

18H 24 Cancel 

19H 25 End of Medium 



Turn off Cursor 

None 
None 

None 

None 

None 

None 
None 
Convert to 32-Character 

Mode 

Erase Input Buffer 

Advance Cursor 
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laracter 


Hex 


Decinal 


ASCII Ose 


TRS-80 Use 


SUB 


1AH 


26 


Substitute 


Linefeed 


ESC 


1BH 


27 


Escape (Alt Mode) 


Upward Linefeed 


FS 


1CH 


28 


File Separator 


Return Cursor to Upper 
Left Corner of Screen 


GS 


1DH 


29 


Group Separator 


Move Cursor to Start of 
Line 


RS 


1EH 


30 


Record Separator 


Erase to End of Line 


US 


1FH 


31 


Unit Separator 


Erase to End of Screen 



* * * * * 



Special Characters and Numbers ***** 



Character 


Hex 


Decimal 


Character Hame 


Space 


20H 


32 


Space 


f 


21H 


33 


Exclamation Point 


ii 


22H 


34 


Quotation Mark 


# 


23H 


35 


Number (Pound) Sign 


$ 


24H 


36 


Dollar Sign 


% 


25H 


37 


Percent 


& 


26H 


38 


Ampersand 


i 


27H 


39 


Apostrophe 


( 


28H 


40 


Open Parenthesis 


) 


29H 


41 


Close Parenthesis 


* 


2AH 


42 


Asterisk 


+ 


2BH 


43 


Plus Sign 


r 


2CH 


44 


Comma 


- 


2DH 


45 


Hyphen (Minus) 


• 


2EH 


46 


Period 


/ 


2FH 


47 


Slash 





30H 


48 


Zero 


1 


31H 


49 


One 


2 


32H 


50 


Two 


3 


33H 


51 


Three 


4 


34H 


52 


Four 


5 


35H 


53 


Five 


6 


36H 


54 


Six 


7 


37H 


55 


Seven 


8 


38H 


56 


Eight 


9 


39H 


57 


Nine 


• 
• 


3AH 


58 


Colon 




3BH 


59 


Semicolon 


< 


3CH 


60 


Less-than Sign 


= 


3DH 


61 


Equal Sign 


> 


3EH 


62 


Greater-than Sign 


? 


3FH 


63 


Question Mark 
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The ASCII Table 



Character 



Hex 



Decimal 



Character 



Hex 



Decimal 



Upper-Case Alphabet 


@ 40H 


64 


A 41H 


65 


B 42H 


66 


C 43H 


67 


D 44H 


68 


E 45H 


69 


F 46H 


70 


G 47H 


71 


H 48H 


72 


I 49H 


73 


J 4AH 


74 


K 4BH 


75 


L 4CH 


76 


M 4DH 


77 


N 4EH 


78 


4FH 


79 


P 50H 


80 


Q 51H 


81 


R 52H 


82 


S 53H 


83 


T 54H 


84 


U 55H 


85 


V 56H 


86 


W 57H 


87 


X 58H 


88 


Y 59H 


89 


Z 5AH 


90 


[ 5BH 


91 


\ 5CH 


92 


1 5DH 


93 


5EH 


94 


5FH 


95 



Lower-Case Alphabet 



Accent Grave 


60H 


96 


a 


61H 


97 


b 


62H 


98 


c 


63H 


99 


a 


64H 


100 


e 


65H 


101 


f 


66H 


102 


g 


67H 


103 


h 


68H 


104 


i 


69H 


105 


J 


6AH 


106 


k 


6BH 


107 


1 


6CH 


108 


m 


6DH 


109 


n 


6EH 


110 





6FH 


111 


P 


70H 


112 


q 


71H 


113 


r 


72H 


114 


s 


73 H 


115 


t 


74H 


116 


u 


75H 


117 


V 


76 H 


113 


w 


77H 


119 


X 


78H 


120 


y 


79H 


121 


z 


7AH 


122 


{ 


7BH 


123 


1 


7CH 


124 


} 


7DH 


125 


"" 


7EH 


126 


Delete 


7FH 


127 



***** 



TRS-80 Graphic Characters 



***** 



TRS-80 Graphic Characters are represented by the hexadecimal characters 
81H through OBFH ( decimal 129 through 191) and are shown in Appendix E. 
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***** TRS-80 Space Compression Codes ***** 

Space compression codes are single bytes that take the place of a number 
of spaces. In other words, when the TRS-80 encounters these characters in an 
input stream, it will substitute a number of spaces for that character. 

Here is an example: 

(in Basic) "A"+CHR$ (202) +"B n 
(in Hex) 41CA42 

will expand to: 

(in print) "A B" 

(in Hex) 412020202020202020202042 



Hex DeciraL Represents 

2 Spaces 

3 Spaces 

4 Spaces 

5 Spaces 

6 Spaces 

7 Spaces 

8 Spaces 

9 Spaces 

10 Spaces 

11 Spaces 

12 Spaces 

13 Spaces 

14 Spaces 

15 Spaces 

16 Spaces 

17 Spaces 

18 Spaces 

19 Spaces 

20 Spaces 

21 Spaces 

22 Spaces 

23 Spaces 

24 Spaces 

25 Spaces 

26 Spaces 

27 Spaces 



C2H 


194 


C3H 


195 


C4H 


196 


C5H 


197 


C6H 


198 


C7H 


199 


C8H 


200 


C9H 


201 


CAH 


202 


CBH 


203 


CCH 


204 


CDH 


205 


CEH 


206 


CFH 


207 


D0H 


208 


D1H 


209 


D2H 


210 


D3H 


211 


D4H 


212 


D5H 


213 


D6H 


214 


D7H 


215 


D8H 


216 


D9H 


217 


DAH 


218 


DBH 


219 
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Hex Decimal Itepresents 

DCH 220 28 Spaces 

DDH 221 29 Spaces 

DEH 222 30 Spaces 

DFH 223 31 Spaces 

EOH 224 32 Spaces 

E1H 225 33 Spaces 

E2H 226 34 Spaces 

E3H 227 35 Spaces 

E4H 228 36 Spaces 

E5H 229 37 Spaces 

E6H 230 38 Spaces 

E7H 231 39 Spaces 

E8H 232 40 Spaces 

E9H 233 41 Spaces 

EAH 234 42 Spaces 

EBH 235 43 Spaces 

ECH 236 44 Spaces 

EDH 237 45 Spaces 



238 46 Spaces 

EFH 239 47 Spaces 

FOH 240 48 Spaces 

F1H 241 49 Spaces 

F2H 242 50 Spaces 

F3H 243 51 Spaces 

F4H 244 52 Spaces 

F5H 245 53 Spaces 

F6H 246 54 Spaces 

F7H 247 55 Spaces 

F8H 248 56 Spaces 

F9H 249 57 Spaces 

FAH 250 58 Spaces 

FBH 251 59 Spaces 

FCH 252 60 Spaces 

FDH 253 61 Spaces 

FEH 254 62 Spaces 

FFH 255 63 Spaces 
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Appendix E: Graphics Table 



This appendix was designed to provide a ready visual 
reference showing each of the TRS-80 Graphic characters. 
In most tables covering this subject, the light and dark 
areas have been reversed. We have found this confusing and 
therefore have shown the pixels (picture elements) in their 
true representations. For instance, if you want nothing to 
show, you would want to send a 80H (128 decimal) character 
to the screen. A completely white block can be placed on 
the screen with a OBFH (191 decimal) character. 
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warn 




AOH 
160 






Bill 



RW 




m m ; 
ISlllillS 

mm® 



few!! 

Half 




HH J 







■<smi?.-smM 






















Appendix F: Set/ Reset 







01000 


j **************************************** 






01010 


;* 


SET 


RESET POINT * 






01020 


;* 




* 






01030 


-* 


Simple 


Graphics Routines * 






01040 


•* 


by Insiders Software * 






01050 


•* 

3 




Consultants * 






01060 


•* 

> 


PO Box 


2441, Dept. SRP * 






01070 


;* 


Springfield, VA 22152 * 






01080 


j **************************************** 






01090 








1E4A 




01100 
OHIO 


FCERR 


EQU 


1E4AH jlllegal function call 






01120 


j ******** 








01130 


.* 
> 


Upon entry by CALL to POINT, SET or RESET (P/S/R) 






01140 


• * 


'D'=X coordinate, 'E'=*Y coordinate. 






01150 


;* 


0<=X<128, 0<=Y<48 






01160 


. ******** 








01170 








7F50 




01180 




ORG 


7F50H 






01190 


• ******** 








01200 


.* 
> 


The POINT routine returns -1 (FFH) if the point 






01210 


•* 

> 


is SET, 


, else the value = 00H. 






01220 


.* 

J 


The return is in 'A' AND in the INT FPA1 (see 






01230 


•* 

» 


volume I) 






01240 


• ******** 




7F50 


3E0O 


01250 


POINT 


LD 


A,0 jEntry for POINT 


7F52 


01 


01260 
01270 




DEFB 


01 ;Hide the next instr. 
; w/ LD BC 


7F53 


3E80 


01280 


SET 


LD 


A,80H ;Entry for SET 


7F55 


01 


01290 




DEFB 


01 ;Hide next instr. 


7F56 


3E01 


01300 


RESET 


LD 


A,01H ;Entry for RESET 


7F58 


D5 


01310 




PUSH 


DE ;Save coords 


7F59 


F5 


01320 




PUSH 


AF ;Save command P/S/R 


7F5A 


7A 


01330 




LD 


A,D ;LD X Coordinate 


7F5B 


FE80 


01340 




CP 


80H ;X < 128 


7F5D 


D24A1E 


01350 




JP 


NC, FCERR ;If not, illegal func. 


7F60 


F5 


01360 




PUSH 


AF ;Push X coord. 


7F61 


7B 


01370 




LD 


A,E ;Get Y Coord 


7F62 


FE30 


01380 




CP 


30H ;Y<48 


7F64 


D24A1E 


01390 




JP 


NC, FCERR ;If not <48, illegal func 
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SET/RESET/POINT 



7F67 16FF 
7F69 14 
7F6A D603 
7F6G 30FB 

7F6E C603 

7F70 4F 
7F71 Fl 
7F72 87 
7F73 5F 



7F74 0602 
7F76 7A 
7F77 IF 
7F78 57 
7F79 7B 
7F7A IF 
7F7B 5F 
7F7C 10F8 



7F7E 
7F7F 
7F80 
7F81 
7F82 
7F83 
7F84 
7F85 
7F87 
7F88 
7F89 
7F8B 



79 

8F 

3C 

47 

AF 

37 

8F 

10FD 

4F 

7A 

F63C 

57 



01400 
01410 
01420 
01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 



- ******** 

3 

;* The next section divides the Y coord, by 3 to get 

;* the row {'D') and the remainder CO 

. ******** 



PSR00 



ID 


D,-l 


INC 


D 


SUB 


3 


JR 


NC,PSR00 



ADD 



A,3 



;INC DIV count 
;Divide by subtraction 
;If not neg result, 
; subtract again 
;Restore to positive 
; (Get remainder) 
; Store remainder in 'C' 
;Get X coord. 
;Multiply by two (2) 
; Store in 'E' 



LD C,A 

POP AF 

ADD A, A 

LD E,A 
• ******** 

I* Determine the LSB of the position on the screen, 

;* the value of which is placed in 'E' 

. ******** 

LD B,2 

PSR01 LD A,D 

RRA 

LD D,A 

LD A,E 

RRA 

LD E,A 

DJKZ PSR01 
.******** 

;* This section uses the remainder to determine 

;* the MSB of the Byte's location in screen memory. 

;* The value of the MSB is placed in *D* 

;* The video RAM address is now in 'DE" . 

;Get remainder 



PSR02 



LD 


A,C 


ADC 


A,A 


INC 


A 


LD 


B,A 


XOR 


A 


SCF 




ADC 


A,A 


DJNZ 


PSR02 


LD 


C,A 


LD 


A,D 


OR 


60 


LD 


D,A 



; Screen line length 



F-2 



SET /RESET/POINT 





01850 


.******** 








01860 


• * 

5 


Get character to 


be manipulated 




01870 


• ******** 

5 






7F8C 1A 


01880 




ID 


A,(DE) 




7F8D B7 


01890 




OR 


A 




7F8E FA937F 


01900 




JP 


M,PSR03 


;JP if graphics chara< 


7F91 3E80 


01910 




LD 


A,80H 


;Set b7, reset others 


7F93 47 


01920 


PSR03 


LD 


B,A 




7F94 Fl 


01930 




POP 


AF 


;Get OP type (P/S/R) 


7F95 B7 


01940 




OR 


A 




7F96 78 


01950 




LD 


A,B 


;Restore byte 


7F97 280F 


01960 




JR 


Z,PSR06 


;JP if POINT 


7F99 12 


01970 




LD 


(DE),A 


;Store byte on screen 


7F9A FAA57F 


01980 




JP 


M,PSR05 


;JP if SET 


7F9D 79 


01990 




LD 


A,C 


;Load bit to reset 


7F9E 2F 


02000 
02010 




CPL 




;A11 bits 1 except 
; bit to reset 


7F9F 4F 


02020 




LD 


C,A 




7FA0 1A 


02030 




LD 


A,(DE) 


;Get char again 


7FA1 Ai 


02040 




AND 


C 


;Reset pixel 


7FA2 12 


02050 


PSR04 


LD 


(DE),A 


;Put back character 


7FA3 Dl 


02060 


PSR04B 


POP 


DE 


;Restore coords 


7FA4 C9 


02070 




RET 




;D0NE 1 


7FA5 Bl 


02080 


PSR05 


OR 


C 


;Set bit 


7FA6 18FA 


02090 




JR 


PSR04 


;Finish up 


7FA8 Al 


02100 


PSR06 


AND 


C 


;Check bit for On/Off 


7FA9 C6FF 


02110 
02120 




ADD 


A,0FFH 


;If on, REX=-1, 

; Else RET=0 


7FAB 9F 


02130 




SBC 


A,A 




7FAC E5 


02140 




PUSH 


HL 


;Save 'HL' 


7FAD CD8D09 


02150 




CALL 


09 SDH 


; Determine sign 


7FB0 7D 


02160 




LD 


A,L 




7FB1 El 


02170 




POP 


HL 


;Restore 'HL' 


7FB2 18EF 


02180 




JR 


PSR04B 




0000 


02190 




END 






00000 Total 


errors 











:er 
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SET/RESET/POINT 



FCERR 


1E4A POINT 


7F50 PSROO 


7F69 


PSR01 


7F76 PSR02 


7F8A PSR03 


7F93 


PSR04 


7FA2 PSR04B 


7FA3 PSR05 


7FA5 


PSR06 


7FA8 RESET 


7F56 SET 


7F53 
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Appendix G: Lowercase Hardware Modification 



Lowercase letters are not supported in an un-modified 
TRS-80. However, since its introduction, many different 
modifications have been introduced. One of the most popu- 
lar ones used to be the "Electric Pencil" modification 
which added lowercase letters (without descenders on the 
video) and "Control" key. When Radio Shack decided to 
produce word processing software, it also needed to provide 
lowercase letters (who wants to write personal letters ONLY 
IN UPPERCASE?). For a fee. Radio Shack will install 
lowercase into your CPU unit which will allow you to dis- 
play lowercase with one-dot descenders on the screen. 

If you have an "old" machine, you may want to spend 
the money to have the Shack install the modification; this 
will give you true descenders, and if your seal is still 
intact, may save you money if the machine fails at a later 
time. If you have one of the newer machines, REALLY know 
the in*s and out's of computer circuitry, and are not 
afraid of the consequences of breaking the seal, we are 
providing this quick LC modification. It should take about 
15 minutes to perform. 

The lowercase modification on the new machines is easy 
since the new character generator chip is installed and one 
of the 2102 RAM chips is in a socket. Proceed as follows: 
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Lowercase Mods 



1) Bend up pins 11 and 12 on a new 2102. 

2) Remove Z46-2102 from CPU and piggyback new 2102. 

3) Solder all pins together except 11 and 12 - 
CAREFULLY! 

Try not to get solder near the bottom pin end. 

4) Solder thin wires to 11 and 12 pins that were 
bent up. (3-4 inches) 

5) Place the 2102s back in the socket; align the 

notches. 

6) Connect pin 11-Z46, to pin 13-Z44. 
Use the small hole NE of pin 13. 

7) Solder pin 12-Z46, to pin 13-Z27. 

You must solder to the pin itself. 

8) Cut the trace between Z29 and Z30. The trace is 
a thin diagonal between Z29 and Z3 0. 



Of course, to get lowercase letters you will have to 
load a lowercase driver? the assembly language source code 
for such a driver is listed in Appendix B. Before you open 
up your unit, remember that it voids all warranties. This 
modification should not be performed by persons not trained 
or experienced in servicing SENSITIVE electrical equipment. 
He that eagerly grabs a soldering gun , whips out the left- 
over copper wire from the lamp he just put together, and 
tries to perform the modification will be replacing the 
$300 board in the CPU. 
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AppencixH: Printer Driver 



4026 
4028 
4029 
40 2A 
402B 
40 2C 
003B 
37E8 
05D1 

F500 

F500 2133F5 

F503 224940 

F506 22B140 

F509 11CEFF 

F50C 19 

F50D 22A040 



0042 
0050 
0005 
0006 



F510 3E42 
F512 322840 
F515 3E50 
F517 322A40 
F51A 3E05 
F51C 322C40 



01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 



.*********************■******************* 



Parallel Printer Driver 

by Insiders Software 

Consultants, Inc. 
PO Box 2441, Dept. PRT 
Springfield, Virginia 22152 



**************************************** 



LPTADR 

LPTLPP 

LPTLCT 

LPTCPL 

LPTCCT 

LPTIND 

LPTBYT 

LPRINT 

P STATU 
• ******** 

ORG 

START 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



4026H 
4028H 
4029H 
402AH 
402BH 
402CH 
003BH 
37E8H 
05D1H 



;Line Printer DCB 

; Lines per page (+3) 

; Line counter (+4) 

; Characters per line (+5) 

; Character counter (+6) 

; Line indent (+7) 

;Print a byte 

;Line printer address 

;Line printer status ck 



0F500H 

BL,PRTDVR-1 

(4049H),HL 

(40B1H) ,HL 

DE,-50 

HL,DE 

(40A0H) ,HL 



; Anywhere in highmem 
;Set highmem pointer 
;Set HIGH$ 

;Set BASIC highmem ptr 
;Clear string area 



LD 
LD 
LD 
LD 
ADD 

LD (40A0H),HL ;CLEAR 50 
******** 

* Pointers have been set to protect the driver 
Now, set up the default values in the DCB 



.* 

■ ******** 



LPP 
CPL 
IND 

SKPTOF 



SETDEF 



EQU 
EQU 
EQU 
EQU 



LD 
LD 
LD 
LD 
LD 
LD 



66 
80 
5 
6 



A, LPP 
(LPTLPP), A 
A, CPL 
(LPTCPL) ,A 
A, IND 
(LPTIND) ,A 



;Standard page length 
; Characters /line 
;Line indent 
; Skip top-of-fortn flag 
; if NZ, skip on 
; eof-skptof 
;Get lines /page 
;Set lines/page 
;Get characters /line 
;Set characters/line 
;Get indent 
;Set indent 
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Printer Driver 



F51F AF 


01410 




XOR 


A 


;Zero counters 


F520 322940 


01420 




LD 


(LPTLCT),A 


;Zero line counter 


F523 322B40 


01430 




LD 


(LPTCCT),A 


;Zero char counter 




01440 


. ******** 








01450 


.* 

> 


Change 


DCB to reflect 


new driver 




01460 


• ******** 

3 






F526 2134F5 


01470 


CHGDCB 


LD 


HL, PRTDVR 


;New Driver address 


F529 222640 


01480 




LD 


(LPTADR) ,HL 


;Set new driver 


F52C 3E0D 


01490 




LD 


A,0DH 


;Print a CR 


F52E CD3B00 


01500 




CALL 


LPTBYT 




F531 C32D40 


01510 
01520 




JP 


402DH 


; Entry to DOS 

;If BASIC, JP 06CCH 




01530 


• ******** 








01540 


• * 


Line Printer Driver 






01550 


• ******** 






F534 79 


01560 


PRTDVR 


LD 


A,C 


;Get char to print 


F53 5 B7 


01570 




OR 


A 




F536 CAD105 


01580 




JP 


Z,P STATU 


;Return status if NULL 


F539 FEOB 


01590 




CP 


OBH 


;Vert Tab? 


F53B 2804 


01600 




JR 


Z,FF 


; Convert VT to FF 


F53D FEOC 


01610 




CP 


OCH 


;Form Feed? (FF) 


F53F 20 IF 


01620 




JR 


NZ,CKLF 


;If not FF, ck LF 


F541 AF 


01630 


FF 


XOR 


A 


; Clear 'A' 


F542 DDB603 


01640 




OR 


(IX+3) 


;See if Ipp set 


F545 C8 


01650 




RET 


z 


;If no lpp cnt, no out 


F546 AF 


01660 




XOR 


A 


; Clear 'A' 


F547 DDB606 


01670 




OR 


(IX+6) 


;Middle of line? 


F54A 3E0D 


01680 




LD 


A,QDH 




F54C C490F5 


01690 




CALL 


NZ, OUTPUT 




F54F DD7E03 


01700 




LD 


A, (IX+3) 


;Get lines/page 


F552 DD9604 


01710 




SUB 


(IX+4) 


;SUB value in page count 


F555 47 


01720 




LD 


B,A 


;Save count 


F556 3E0A 


01730 




LD 


A,0AH 


;Output linefeeds 


F558 GD7CF5 


01740 


OUTFF 


CALL 


OUTA 


; Output 'A' to printer 


F55B 10FB 


01750 




DJNZ 


OUTFF 


; Continue for *B' LFs 


F55D C3E1F5 


01760 




JP 


ZERLCT 


;Done. Zero linecount 


F560 E67F 


01770 


GKLF 


AND 


7FH 


;Reset b7 


F562 FEOA 


01780 




CP 


OAH 


; Linefeed? 


F564 2007 


01790 




JR 


NZ,CKCR 


;CK for CR if non-LF 


F566 CD7CF5 


01800 


ODTLF 


CALL 


OUTA 


; Output LF 


F56 9 CDC2F5 


01810 




CALL 


INCLCT 


;Inc line counter 


F56C C9 


01820 




RET 




;Done w/ linefeeds 


F56D FEOD 


01830 


GKCR 


CP 


ODH 


;CR? 


F56F 201F 


01840 




JR 


NZ, OUTPUT 




F571 CD7CF5 


01850 




CALL 


OUTA 




F574 DD36060C 


1 01860 




LD 


(IX+6),0 


;Zero CCT 


F578 CDC2F5 


01870 




CALL 


INCLCT 


;Inc line counter 


F57B C9 


01880 




RET 
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Printer Driver 



F57C 


F5 


01890 


OUTA 


PUSH 


AF 


;Save char to print 


F57D 


CDD105 


01900 


OUTA1 


CALL 


P STATU 




F580 


2809 


01910 




JR 


Z, NOABRT 


;If ready, output 


F582 


3A4038 


01920 




LD 


A,(3840H) 


;Get ENTER/CLR/BRK 


F585 


E606 


01930 




AND 


6 


;CLR/BRK? 


F587 


28F4 


01940 




JR 


Z,0UTA1 


;If no pressed, loop 


F589 


Fl 


01950 


ABORT 


POP 


AF 




F58A 


G9 


01960 
01970 




RET 




;Ret as if char sent 

; to prevent lockup 


F58B 


Fl 


01980 


NOABRT 


POP 


AF 




F58C 


32E837 


01990 




LD 


(LPRINT) ,A 


joutput to printer 


F58F 


C9 


02000 




RET 






F590 


FE20 


02010 


OUTPUT 


CP 


20H 


;0utput a byte 


F592 


3004 


02020 




JR 


NC, NOTCTL 


;JP if non-control 


F594 


CD7CF5 


02030 




CALL 


ODTA 




F597 


C9 


02040 




RET 






F598 


4F 


02050 


NOTCTL 


LD 


C,A 


;Save char to print 


F599 


DD7E06 


02060 




LD 


A,(lX+6) 


;Get char count 


F59C 


B7 


02070 




OR 


A 


;Non-zero? 


F59D 


2010 


02080 




JR 


NZ , ALRDYN 


;JP if already indent 


F59F 


DD4607 


02090 




LD 


B,(lX+7) 


;Get indent 


F5A2 


3E20 


02100 




LD 


A,20H 


;Spaces 


F5A4 


CD7CF5 


02110 


OUTIND 


CALL 


ODTA 


;0utput indent 


F5A7 


10FB 


02120 




DJNZ 


OUTIND 




F5A9 


DD7E07 


02130 




LD 


A,(lX+7) 


;Get indent 


F5AC 


DD7706 


02140 




LD 


(IX+6),A 


;Save CCT 


F5AF 


79 


02150 


ALRDYN 


LD 


A,C 


;Get character 


F5B0 


CD7CF5 


02160 




CALL 


OUTA 




F5B3 


DD3406 


02170 




INC 


(IX+6) 


;Inc CCT 


F5B6 


DD7E05 


02180 




LD 


A,(IX+5) 


;Get CPL 


F5B9 


DDBE06 


02190 




CP 


(IX+6) 




F5BC 


CO 


02200 




RET 


NZ 




F5BD 


3E0D 


02210 




LD 


A,0DH 


;Carriage return 


F5BF 


C36DF5 


02220 




JP 


CKCR 




F5G2 


DD3404 


02230 


INCLCT 


INC 


(IX+4) 


;INC Line Counter 


F5C5 


DD7E03 


02240 




LD 


A,(lX+3) 


;Get LPP 


F5C8 


DDBE04 


02250 




CP 


(IX+4) 




F5CB 


CCE1F5 


02260 




CALL 


Z, ZERLCT 




F5CE 


D606 


02270 




SUB 


SKPTOF 


;Skip TOF count 


F5D0 


DDBE04 


02280 




CP 


(IX+4) 




F5D3 


CO 


02290 




RET 


NZ 


;Return if not at bottom 


F5D4 


0606 


02300 




LD 


B, SKPTOF 




F5D6 


3E0A 


02310 




LD 


A,0AH 


; Output to TOF 


F5D8 


CD7CF5 


02320 


OUTTOF 


CALL 


OUTA 




F5DB 


10FB 


02330 




DJNZ 


OUTTOF 




F5DD 


CDE1F5 


02340 




CALL 


ZERLCT 




F5E0 


C9 


02350 




RET 




;At tof 


F5E1 


DD360400 


02360 


ZERLCT 


LD 


(!X+4),0 


;Zero line counter 


F5E5 


C9 


02370 




RET 






F500 




02380 




END 


START 
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Printer Driver 



00000 Total errors 



ABORT 


F589 ALRDYN 


F5AF CHGDCB 


F526 


CKCR 


F56B CKLF 


F560 GPL 


0050 


FF 


F541 INCLCT 


F5C2 IND 


0005 


LPP 


0042 LPRINT 


37E8 LPTADR 


4026 


LPTBYT 


003B LPTCCT 


40 2B LPTGPL 


40 2A 


LPTIND 


40 2C LPTLCT 


4029 LPTLPP 


4028 


NOABRT 


F58B NOTCTL 


F598 OUTA 


F57C 


OUTA1 


F57D OUTFF 


F558 OUTIND 


F5A4 


0UTLF 


F566 OUTPUT 


F590 OUTTOF 


F5D8 


PRTDVR 


F534 P STATU 


05D1 SETDEF 


F510 


SKPTOF 


0006 START 


F500 ZERLCT 


F5E1 
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Appendix I: Tables 



Hexadecimal Columns 





6 


5 


4 


3 


2 


1 


.EX 


DEC 


DEC 


DEC 


DEC 


DEC 


DEC 


1 


1,048,576 


65,536 


4,096 


256 


16 


1 


2 


2,097,152 


131,072 


8,192 


512 


32 


2 


3 


3,145,728 


196,608 


12,288 


768 


48 


3 


4 


4,194,304 


262,144 


16,384 


1024 


64 


4 


5 


5,242,880 


327,680 


20,480 


1280 


80 


5 


6 


6,291,456 


393,216 


24,576 


1536 


96 


6 


7 


7,340,032 


458,752 


28,672 


17 92 


112 


7 


8 


8,388,608 


524,288 


32,768 


2048 


128 


8 


9 


9,437,184 


589,824 


36,864 


2304 


144 


9 


A 


10,485,760 


655,360 


40,960 


2560 


160 


10 


B 


11,534,336 


720,896 


45,056 


2816 


176 


11 


C 


12,582,912 


786,432 


49,152 


3072 


192 


12 


D 


13,631,488 


851,968 


53,248 


3328 


208 


13 


E 


14,680,064 


917,504 


57 ,344 


3584 


224 


14 


F 


15,728,640 


983,040 


61,440 


3840 


240 


15 
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Conversion Tables 



Powers of 2 

2! - 256 

2 10 = 512 

2*" = 1,024 

2 11 - 2,048 
2" - 4,096 
2,f - 8,192 
2^ » 16,384 
27^ = 32,768 
2t° = 65,536 
2t' = 131,072 
2 1 : « 262,144 
2^ = 524,288 
2Zt = 1,048,576 
2„ = 2,097,152 
lit • 4,194,304 
2ff = 8,388,608 
2 Z * » 16,777,216 



Conversion Algorithm 

2 S - 16 N/4 





Powers of 


16 






1 . 




16 2 

16 3 
16 4 
16 5 

16 6 




16 = 






256 ■ 






4,096 






65,536 




1 


,048,576 * 




16 


,777,216 * 
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